Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:097715 / Исходники / Магазин бытовой техники / Main
.pas//Основной модуль приложения
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BoldHandle, BoldPersistenceHandle, BoldPersistenceHandleFile,
BoldPersistenceHandleFileXML, BoldAbstractModel, BoldModel, BoldHandles,
BoldRootedHandles, BoldAbstractListHandle, BoldCursorHandle,
BoldListHandle, BoldSubscription, BoldSystemHandle, BoldUMLModelLink,
BoldUMLRose98Link, data, ComCtrls, ToolWin, XPMan, Menus, StdCtrls,
ImgList, BoldEdit, Buttons, ExtCtrls, jpeg, Grids, BoldGrid, Mask,
BoldComboBox, BoldQueue, BoldListBox, BoldMemo, BusinessClasses,
BoldNavigatorDefs, BoldNavigator, NewBase, BoldTreeView, BoldSortingGrid,
Spin, BoldStringControlPack, BoldElements, BoldControlPack,
BoldNumericControlPack, comobj, BoldLabel, ShellAPI;
type
TMainform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
XPManifest1: TXPManifest;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
N2: TMenuItem;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ImageList1: TImageList;
N8: TMenuItem;
N9: TMenuItem;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
GroupBox3: TGroupBox;
BoldEdit4: TBoldEdit;
Label15: TLabel;
BoldListBox2: TBoldListBox;
Label16: TLabel;
BoldGrid2: TBoldGrid;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
TabSheet3: TTabSheet;
GroupBox5: TGroupBox;
BoldListBox1: TBoldListBox;
GroupBox7: TGroupBox;
BoldListBox3: TBoldListBox;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
GroupBox8: TGroupBox;
Label26: TLabel;
BoldEdit6: TBoldEdit;
Label27: TLabel;
BoldEdit7: TBoldEdit;
BoldListBox4: TBoldListBox;
SpeedButton20: TSpeedButton;
GroupBox6: TGroupBox;
Label18: TLabel;
Edit4: TEdit;
GroupBox10: TGroupBox;
Label20: TLabel;
Label21: TLabel;
Label23: TLabel;
Label22: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
MaskEdit1: TMaskEdit;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
GroupBox9: TGroupBox;
Label25: TLabel;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
Edit8: TEdit;
Label19: TLabel;
BoldEdit8: TBoldEdit;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
N11: TMenuItem;
GroupBox11: TGroupBox;
BoldListBox5: TBoldListBox;
BoldComboBox2: TBoldComboBox;
BoldSortingGrid1: TBoldSortingGrid;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
BoldComboBox3: TBoldComboBox;
N12: TMenuItem;
N13: TMenuItem;
TabSheet4: TTabSheet;
BoldSortingGrid2: TBoldSortingGrid;
TabSheet5: TTabSheet;
GroupBox4: TGroupBox;
Label17: TLabel;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
Label24: TLabel;
BoldGrid3: TBoldGrid;
BoldMemo1: TBoldMemo;
BoldEdit9: TBoldEdit;
N14: TMenuItem;
TabSheet6: TTabSheet;
GroupBox12: TGroupBox;
BoldComboBox4: TBoldComboBox;
GroupBox13: TGroupBox;
Label31: TLabel;
Label32: TLabel;
Edit9: TEdit;
Edit10: TEdit;
Label33: TLabel;
SpinEdit1: TSpinEdit;
Label34: TLabel;
SpinEdit2: TSpinEdit;
GroupBox14: TGroupBox;
BoldSortingGrid3: TBoldSortingGrid;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
GroupBox15: TGroupBox;
BoldListBox6: TBoldListBox;
SpeedButton32: TSpeedButton;
TabSheet7: TTabSheet;
SpeedButton33: TSpeedButton;
GroupBox16: TGroupBox;
BoldSortingGrid4: TBoldSortingGrid;
GroupBox17: TGroupBox;
BoldComboBox5: TBoldComboBox;
GroupBox18: TGroupBox;
BoldListBox7: TBoldListBox;
BoldAsStringRenderer1: TBoldAsStringRenderer;
SpeedButton34: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
ProgressBar1: TProgressBar;
GroupBox19: TGroupBox;
Edit11: TEdit;
Label35: TLabel;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SaveExcel: TSaveDialog;
N15: TMenuItem;
GroupBox20: TGroupBox;
Label36: TLabel;
SpeedButton39: TSpeedButton;
Edit12: TEdit;
GroupBox21: TGroupBox;
Label37: TLabel;
SpeedButton40: TSpeedButton;
Edit13: TEdit;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
Prodazha: TPopupMenu;
N16: TMenuItem;
N17: TMenuItem;
SpeedButton43: TSpeedButton;
RenderProdazha: TBoldAsStringRenderer;
SpeedButton44: TSpeedButton;
SpeedButton45: TSpeedButton;
ProgressBar2: TProgressBar;
TabSheet8: TTabSheet;
N18: TMenuItem;
GroupBox22: TGroupBox;
BoldComboBox6: TBoldComboBox;
BoldListBox8: TBoldListBox;
Label38: TLabel;
Label39: TLabel;
GroupBox23: TGroupBox;
GroupBox24: TGroupBox;
GroupBox25: TGroupBox;
Label40: TLabel;
Label41: TLabel;
BoldLabel1: TBoldLabel;
BoldLabel2: TBoldLabel;
Label42: TLabel;
Label43: TLabel;
BoldLabel3: TBoldLabel;
BoldLabel4: TBoldLabel;
Label44: TLabel;
Label45: TLabel;
BoldLabel5: TBoldLabel;
BoldLabel6: TBoldLabel;
BoldLabel7: TBoldLabel;
Label46: TLabel;
Label47: TLabel;
BoldLabel8: TBoldLabel;
Label48: TLabel;
BoldLabel9: TBoldLabel;
GroupBox26: TGroupBox;
Label49: TLabel;
Label50: TLabel;
DateTimePicker1: TDateTimePicker;
Label51: TLabel;
DateTimePicker2: TDateTimePicker;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
TabSheet9: TTabSheet;
GroupBox27: TGroupBox;
Label58: TLabel;
SpeedButton48: TSpeedButton;
Edit14: TEdit;
Label59: TLabel;
Label60: TLabel;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
SpeedButton49: TSpeedButton;
TabSheet10: TTabSheet;
GroupBox28: TGroupBox;
Label61: TLabel;
SpeedButton50: TSpeedButton;
Label62: TLabel;
Label63: TLabel;
SpeedButton51: TSpeedButton;
Edit15: TEdit;
DateTimePicker5: TDateTimePicker;
DateTimePicker6: TDateTimePicker;
GroupBox29: TGroupBox;
BoldGrid4: TBoldGrid;
Label64: TLabel;
Bevel2: TBevel;
BoldLabel10: TBoldLabel;
BoldLabel11: TBoldLabel;
BoldLabel12: TBoldLabel;
BoldLabel13: TBoldLabel;
GroupBox30: TGroupBox;
BoldGrid5: TBoldGrid;
Label65: TLabel;
BoldLabel14: TBoldLabel;
BoldLabel15: TBoldLabel;
Bevel3: TBevel;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
Bevel4: TBevel;
Label66: TLabel;
BoldLabel16: TBoldLabel;
BoldLabel17: TBoldLabel;
BoldLabel18: TBoldLabel;
BoldLabel19: TBoldLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
BoldLabel20: TBoldLabel;
BoldLabel21: TBoldLabel;
BoldLabel22: TBoldLabel;
BoldEdit10: TBoldEdit;
BoldEdit11: TBoldEdit;
BoldEdit12: TBoldEdit;
Label4: TLabel;
BoldEdit13: TBoldEdit;
Label5: TLabel;
BoldEdit14: TBoldEdit;
Label6: TLabel;
BoldEdit15: TBoldEdit;
Label67: TLabel;
BoldMemo2: TBoldMemo;
SaveWord: TSaveDialog;
Vremya: TTimer;
N10: TMenuItem;
Timer1: TTimer;
CheckBox4: TCheckBox;
TabSheet11: TTabSheet;
GroupBox2: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
BoldGrid1: TBoldGrid;
BoldComboBox1: TBoldComboBox;
BoldEdit1: TBoldEdit;
BoldEdit2: TBoldEdit;
BoldEdit3: TBoldEdit;
BoldEdit5: TBoldEdit;
N25: TMenuItem;
SpeedButton56: TSpeedButton;
Image1: TImage;
procedure N2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure BoldGrid1DblClick(Sender: TObject);
procedure BoldGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure BoldGrid2SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton17Click(Sender: TObject);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure TabSheet3Hide(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton28Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure SpeedButton29Click(Sender: TObject);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton30Click(Sender: TObject);
procedure Edit9KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton31Click(Sender: TObject);
procedure SpeedButton32Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure BoldAsStringRenderer1SetColor(Element: TBoldElement;
var AColor: TColor; Representation: Integer; Expression: String);
procedure BoldSortingGrid4DblClick(Sender: TObject);
procedure SpeedButton34Click(Sender: TObject);
procedure SpeedButton34MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure Clear_status;
procedure TabSheet7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton36MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton35MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton35Click(Sender: TObject);
function FindTovarBase(name: string): boolean;
function FindTovarShop(name: string; Gr:string; var tov_index: integer): boolean;
procedure SpeedButton37MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton37Click(Sender: TObject);
procedure SpeedButton38MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton38Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton39Click(Sender: TObject);
procedure SpeedButton40Click(Sender: TObject);
procedure SpeedButton16MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton41Click(Sender: TObject);
procedure SpeedButton42Click(Sender: TObject);
procedure SpeedButton42MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton41MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure RenderProdazhaSetColor(Element: TBoldElement;
var AColor: TColor; Representation: Integer; Expression: String);
procedure SpeedButton44MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton44Click(Sender: TObject);
procedure SpeedButton45MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton45Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton46Click(Sender: TObject);
procedure SpeedButton46MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure GroupBox26MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton47Click(Sender: TObject);
procedure TabSheet8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton49MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton48MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton48Click(Sender: TObject);
procedure SpeedButton49Click(Sender: TObject);
procedure SpeedButton50Click(Sender: TObject);
procedure SpeedButton51Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure SpeedButton52Click(Sender: TObject);
procedure SpeedButton53Click(Sender: TObject);
procedure SpeedButton54Click(Sender: TObject);
procedure SpeedButton55Click(Sender: TObject);
procedure SpeedButton33Click(Sender: TObject);
procedure SpeedButton29MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton30MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton32MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton31MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton43MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton10MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton12MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton13MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton14MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton15MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton21MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton22MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton23MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton20MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton18MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure SpeedButton19MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure ToolButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton43Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure VremyaTimer(Sender: TObject);
procedure ToolBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure ToolButton15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ToolButton16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure CheckBox4Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure SpeedButton56Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Mainform: TMainform;
TekOtdel: TOtdel;
TekGroup: TGroup;
TekBase: TBase;
TekBTov: TTov_base;
TekZTov, NewZTov: TZakaz;
TekMTov: TTov_mag;
ProdTov: TProdazha;
FlagZakaz: Boolean;
TekShop: TShop;
Kol: integer;
E, W: Variant;
DirApplication: string;
procedure NewTovar(name: string; price: real; Garant, Col: integer;
Zakaz: boolean; Zakazcount: integer; Hranitsya: TBase; Prinadlezhit: TGroup;
var NewTov: TTov_base);
procedure NewMagTovar(name: string; price: real; Garant, Col: integer;
Prinadlezhit: TGroup; var NewMTov: TTov_mag);
function PoiskTovarBase(name: String; nach: boolean; var index: integer): boolean;
implementation
uses BoldSystem, EditTovarBase, ZakazTov, About, Ad_change_pass, Ad_reg,
Sc_trial;
{$R *.dfm}
//*****************************************************************************
//***************************Мои процедуры и функции***************************
//*****************************************************************************
//Расчет экономических показателей
procedure rasschet(begindate, enddate: TDate);
var i,n: integer;
ksum, prib, viruch: real;
d: TDate;
begin
n:=DataShop.ListProdazha.Count;
ksum:=0;
prib:=0;
viruch:=0;
for i:=0 to n-1 do
begin
ProdTov:=DataShop.ListProdazha.ObjectList.Elements[i] as TProdazha;
d:=ProdTov.Pdate;
if (d<=trunc(enddate))and(d>=trunc(begindate)) then
begin
viruch:=viruch+ProdTov.PRprice*ProdTov.Pcount;
prib:=prib+ProdTov.Pprice*ProdTov.Pcount;
ksum:=ksum+ProdTov.Pcount;
end;
end;
prib:=viruch-prib;
Mainform.Label55.Caption:=FloatToStr(ksum);
Mainform.Label56.Caption:=FloatToStr(viruch);
Mainform.Label57.Caption:=FloatToStr(prib);
end;
//Добавлнение нового товара в базу
procedure NewTovar(name: string; price: real; Garant, Col: integer;
Zakaz: boolean; Zakazcount: integer; Hranitsya: TBase; Prinadlezhit: TGroup;
var NewTov: TTov_base);
begin
NewTov:=TTov_base.Create(nil);
NewTov.Tname:=name;
NewTov.Tprice:=price;
NewTov.Tgarant:=Garant;
NewTov.TBcount:=Col;
NewTov.ZakazCount:=Zakazcount;
NewTov.Hranitsya:=Hranitsya;
NewTov.BPrinadlezhit:=Prinadlezhit;
end;
//Добавление нового товара в магазин
procedure NewMagTovar(name: string; price: real; Garant, Col: integer;
Prinadlezhit: TGroup; var NewMTov: TTov_mag);
var flag: boolean;
s: String;
pricereal: real;
begin
flag:=true;
S:='';
while flag do
begin
s:=InputBox('Цена реализации','Укажите цену реализации (руб. за ед.) товара "'+
name+'" с закупочной ценой:'+floattostr(price),'0');
if s<>'' then
begin
try
pricereal:=StrToFloat(s);
except
ShowMessage('Неверно указана цена реализации товара!'+#13+'Повторите ввод цены!');
end;
if pricereal>price then
flag:=false
else
ShowMessage('Цена реализации товара должна быть выше закупочной!'+#13+
'Повторите ввод цены реализации');
end
else
ShowMessage('Укажите цену реализации товара (руб. за ед.)!');
end; // while
NewMTov:=TTov_mag.Create(nil);
NewMTov.Tname:=name;
NewMTov.Tprice:=price;
NewMTov.Tgarant:=Garant;
NewMTov.TMcount:=Col;
NewMTov.Prodcount:=0;
NewMTov.TMprice:=pricereal;
NewMTov.Prinadlezhit:=Prinadlezhit;
end;
//Добавление записи в журнал продаж
procedure NewProdazha(Np: integer; Pname: string; Kol: integer; Zprisce, Rprice: real; var New: TProdazha);
begin
New:=TProdazha.Create(nil);
New.Pdate:=now;
New.PZtov_name:=Pname;
New.Pcount:=Kol;
New.Pprice:=Zprisce;
New.PRprice:=Rprice;
New.Pnumber:=Np;
end;
//Поиск товара по закупочным базам для добавление
function TMainform.FindTovarBase(name: string): boolean;
var ExTov: TTov_base;
fi,n: integer;
begin
result:=false;
n:=DataShop.ListBaseGroupTovar.Count-1;
for fi:=0 to n do
begin
ExTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[fi] as TTov_base;
if name=ExTov.Tname then
result:=true;
end;
end;
//Поиск товара по закупочным базам для отображения
function PoiskTovarBase(name: String; nach: boolean; var index: integer): boolean;
var ExTov: TTov_base;
fi,n, p: integer;
begin
result:=false;
if nach then
fi:=0
else
fi:=DataShop.ListBaseGroupTovar.CurrentIndex+1;
n:=DataShop.ListBaseGroupTovar.Count;
while fi<>n do
begin
ExTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[fi] as TTov_base;
p:=pos(name,ExTov.Tname);
if p<>0 then
begin
index:=fi;
fi:=n;
Result:=true;
end
else
inc(fi)
end;
end;
//Поиск товара по журналу продаж
function PoiskTovarProd(name: String; nach: boolean; var index: integer): boolean;
var ExTov: TProdazha;
fi,n, p1,p2: integer;
begin
result:=false;
if nach then
fi:=0
else
fi:=DataShop.ListProdazha.CurrentIndex+1;
n:=DataShop.ListProdazha.Count;
while fi<>n do
begin
ExTov:=DataShop.ListProdazha.ObjectList.Elements[fi] as TProdazha;
p1:=pos(name,ExTov.PZtov_name);
p2:=pos(name,inttostr(ExTov.Pnumber));
if (p1<>0)or(p2<>0) then
begin
index:=fi;
fi:=n;
Result:=true;
end
else
inc(fi)
end;
end;
//Поиск товара по журналу закупок
function PoiskTovarZakaz(name: String; nach: boolean; var index: integer): boolean;
var ExTov: TZakaz;
fi,n, p1: integer;
begin
result:=false;
if nach then
fi:=0
else
fi:=DataShop.ListZakupka.CurrentIndex+1;
n:=DataShop.ListZakupka.Count;
while fi<>n do
begin
ExTov:=DataShop.ListZakupka.ObjectList.Elements[fi] as TZakaz;
p1:=pos(name,ExTov.Zname);
if (p1<>0) then
begin
index:=fi;
fi:=n;
Result:=true;
end
else
inc(fi)
end;
end;
//Поиск товара по магазину
function PoiskTovarShop(name: String; nach: boolean; var index: integer): boolean;
var ExTov: TTov_mag;
fi,n, p: integer;
begin
result:=false;
if nach then
fi:=0
else
fi:=DataShop.ListTovar.CurrentIndex+1;
n:=DataShop.ListTovar.Count;
while fi<>n do
begin
ExTov:=DataShop.ListTovar.ObjectList.Elements[fi] as TTov_mag;
p:=pos(name,ExTov.Tname);
if p<>0 then
begin
index:=fi;
fi:=n;
Result:=true;
end
else
inc(fi)
end;
end;
//Поиск товара по магазину для добавления с учетом группы
function PoiskTovarShopGroup(name: String; nach: boolean; var index: integer): boolean;
var ExTov: TTov_mag;
fi,n, p: integer;
begin
result:=false;
if nach then
fi:=0
else
fi:=DataShop.ListOtdelsGroupTovar.CurrentIndex+1;
n:=DataShop.ListOtdelsGroupTovar.Count;
while fi<>n do
begin
ExTov:=DataShop.ListOtdelsGroupTovar.ObjectList.Elements[fi] as TTov_mag;
p:=pos(name,ExTov.Tname);
if p<>0 then
begin
index:=fi;
fi:=n;
Result:=true;
end
else
inc(fi)
end;
end;
//Поиск товара по магазину для добавления
function TMainform.FindTovarShop(name: string; Gr: String; var tov_index: integer): boolean;
var ExTov: TTov_mag;
fi: integer;
begin
result:=false;
for fi:=0 to DataShop.ListTovar.Count-1 do
begin
ExTov:=DataShop.ListTovar.ObjectList.Elements[fi] as TTov_mag;
if (name=ExTov.Tname)and(ExTov.Prinadlezhit.Gname=Gr) then
begin
result:=true;
tov_index:=fi;
exit;
end;
end;
end;
//Отмена заказа
procedure OtmenaZakaza;
var i,n: integer;
begin
n:=DataShop.ListBaseTovar.Count;
for i:=0 to n-1 do
begin
TekBTov:=DataShop.ListBaseTovar.ObjectList.Elements[i] as TTov_base;
if TekBTov.ZakazCount>0 then
begin
TekBTov.ZakazCount:=0;
Mainform.BoldSortingGrid4.Repaint;
Mainform.SpeedButton35.Enabled:=false;
end;
end;
end;
//Отмена продажи
procedure OtmenaProdazhi;
var i, n: integer;
begin
n:=DataShop.ListTovar.Count;
for i:=0 to n-1 do
begin
TekMTov:=DataShop.ListTovar.ObjectList.Elements[i] as TTov_mag;
if TekMTov.Prodcount>0 then
begin
TekMTov.Prodcount:=0;
Mainform.BoldSortingGrid1.Repaint;
Mainform.SpeedButton45.Enabled:=false;
Kol:=0;
end;
end;
end;
//Экспорт в Excel остатков товара в магазине
procedure ExportOstatki(FileName: string);
var Wbook, Sheet, MySh, Range, Border: variant;
i, j, n, m, r, col: integer;
begin
E:=CreateOleObject('Excel.Application');
E.Workbooks.Add;
Wbook:=E.Workbooks.Item[E.Workbooks.Count];
Sheet:=Wbook.Sheets;
Sheet.Item[2].delete;
Sheet.Item[2].delete;
MySh:=Sheet.Item[1];
MySh.name:='Остатки товара в магазине';
Range:=MySh.Range['A1:E1'];
Range.MergeCells:=true;
Range.Font.Bold:=true;
Range.Font.Italic:=true;
Range.Font.UnderLine:=true;
Range.Font.Size:=16;
Range.Font.Color:=clRed;
Range.value:='Остатки товара в магазине';
Range:=MySh.Range['A1'];
Range.ColumnWidth:=37;
Range:=MySh.Range['B1']; Range.ColumnWidth:=10.5;
Range:=MySh.Range['C1']; Range.ColumnWidth:=8;
Range:=MySh.Range['D1']; Range.ColumnWidth:=12.15;
Range:=MySh.Range['E1']; Range.ColumnWidth:=15.86;
MySh.Range['A3'].value:='Точка актуальности остатков: '+ datetostr(now);
MySh.Range['A5'].value:='Наименование товара';
MySh.Range['B5'].value:='Количество';
MySh.Range['C5'].value:='Гарантия';
MySh.Range['D5'].value:='Цена закупки';
MySh.Range['E5'].value:='Цена реализации';
Range:=MySh.Range['A5:E5'];
Range.Font.Bold:=true;
Border:=Range.Borders;
Border.Color:=clBlack;
Border.Weight:=2;
n:=DataShop.ListGroups.Count;
r:=6;
Col:=0;
for i:=0 to n-1 do
begin
TekGroup:=DataShop.ListGroups.ObjectList.Elements[i] as TGroup;
DataShop.ListGroups.CurrentIndex:=i;
m:=DataShop.ListGroupTovar.Count;
if m<>0 then
begin
MySh.Cells[r,1]:=TekGroup.Gname;
Range:=MySh.Range['A'+inttostr(r)+':E'+inttostr(r)];
Range.Font.Italic:=true;
Range.Font.Size:=14;
Range.Interior.color:=$77FFFF{clYellow};
r:=r+1;
Range:=MySh.Range['A'+inttostr(r)+':E'+inttostr(r+m-1)];
Border:=Range.Borders;
Border.Color:=clBlack;
Border.Weight:=2;
for j:=0 to m-1 do
begin
TekMTov:=DataShop.ListGroupTovar.ObjectList.Elements[j] as TTov_mag;
MySh.Cells[r,1]:=TekMTov.Tname;
MySh.Cells[r,2]:=TekMTov.TMcount;
MySh.Cells[r,3]:=TekMTov.Tgarant;
MySh.Cells[r,4]:=TekMTov.Tprice;
MySh.Cells[r,5]:=TekMTov.TMprice;
r:=r+1;
col:=col+TekMTov.TMcount;
end;
end;
end;
MySh.Cells[r,1]:='Итого: ';
MySh.Cells[r,2]:=col;
MySh.cells[r,1].font.bold:=true;
MySh.cells[r,1].font.size:=16;
MySh.cells[r,2].font.bold:=true;
MySh.cells[r,2].font.size:=16;
Wbook.SaveAs(FileName,1);
E.visible:=true;
end;
//Экспорт в Excel остатков товара на базах
procedure ExportOstatkiBase(FileName: string);
var Wbook, Sheet, MySh, Range, Border: variant;
i, j, n, m, l, k, r, col: integer;
begin
E:=CreateOleObject('Excel.Application');
E.Workbooks.Add;
Wbook:=E.Workbooks.Item[E.Workbooks.Count];
Sheet:=Wbook.Sheets;
Sheet.Item[2].delete;
Sheet.Item[2].delete;
MySh:=Sheet.Item[1];
MySh.name:='Остатки товара на базах';
Range:=MySh.Range['A1:D1'];
Range.MergeCells:=true;
Range.Font.Bold:=true;
Range.Font.Italic:=true;
Range.Font.UnderLine:=true;
Range.Font.Size:=16;
Range.Font.Color:=clRed;
Range.value:='Остатки товара на базах';
Range:=MySh.Range['A1'];
Range.ColumnWidth:=37;
Range:=MySh.Range['B1']; Range.ColumnWidth:=10.5;
Range:=MySh.Range['C1']; Range.ColumnWidth:=8;
Range:=MySh.Range['D1']; Range.ColumnWidth:=12.15;
MySh.Range['A3'].value:='Точка актуальности остатков: '+ datetostr(now);
MySh.Range['A5'].value:='Наименование товара';
MySh.Range['B5'].value:='Количество';
MySh.Range['C5'].value:='Гарантия';
MySh.Range['D5'].value:='Цена закупки';
Range:=MySh.Range['A5:D5'];
Range.Font.Bold:=true;
Border:=Range.Borders;
Border.Color:=clBlack;
Border.Weight:=2;
n:=DataShop.ListBases.Count;
r:=6;
Col:=0;
for i:=0 to n-1 do
begin
TekBase:=DataShop.ListBases.ObjectList.Elements[i] as TBase;
DataShop.ListBases.CurrentIndex:=i;
m:=DataShop.ListBaseGroup.Count;
if (m<>0) then
begin
MySh.Cells[r,1]:=' '+TekBase.Bname;
Range:=MySh.Range['A'+inttostr(r)+':D'+inttostr(r)];
Range.Font.Italic:=true;
Range.Font.Size:=14;
Range.Interior.color:=$FFFF99;
r:=r+1;
for j:=0 to m-1 do
begin
TekGroup:=DataShop.ListBaseGroup.ObjectList.Elements[j] as TGroup;
DataShop.ListBaseGroup.CurrentIndex:=j;
l:=DataShop.ListBaseGroupTovar.Count;
if l<>0 then
begin
MySh.Cells[r,1]:=TekGroup.Gname;
Range:=MySh.Range['A'+inttostr(r)+':D'+inttostr(r)];
Range.Font.Italic:=true;
Range.Font.Size:=14;
Range.Interior.color:=$77FFFF;
r:=r+1;
Range:=MySh.Range['A'+inttostr(r)+':D'+inttostr(r+l-1)];
Border:=Range.Borders;
Border.Color:=clBlack;
Border.Weight:=2;
for k:=0 to l-1 do
begin
TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[k] as TTov_base;
MySh.Cells[r,1]:=TekBTov.Tname;
MySh.Cells[r,2]:=TekBTov.TBcount;
MySh.Cells[r,3]:=TekBTov.Tgarant;
MySh.Cells[r,4]:=TekBTov.Tprice;
r:=r+1;
col:=col+TekBTov.TBcount;
end; //for k
end; //if l<>0
end; //for j
end; //if m<>0
end; //for i
MySh.Cells[r,1]:='Итого: ';
MySh.Cells[r,2]:=col;
MySh.cells[r,1].font.bold:=true;
MySh.cells[r,1].font.size:=16;
MySh.cells[r,2].font.bold:=true;
MySh.cells[r,2].font.size:=16;
Wbook.SaveAs(FileName,1);
E.visible:=true;
end;
//Поиск в Word-документе текста и замена на другой текст
function FindAndInsert(FindText, ReplacementText: string): boolean;
const dwReplaceAll=2;
begin
W.Selection.Find.Text:=FindText;
W.Selection.Find.Replacement.Text:=ReplacementText;
FindAndInsert:=W.Selection.Find.Execute(Replace:=dwReplaceAll);
end;
//Создание накладной продажи
procedure NakladnayaProdazha(FileName: string; Np: integer);
var Doc, Tabl: variant;
i,n: integer;
sum: real;
begin
if FileExists(ExtractFileDir(Application.ExeName)+'\Накладная продажи.dot') then
begin
W:=CreateOleObject('Word.Application');
W.Documents.Add(ExtractFileDir(Application.ExeName)+'\Накладная продажи.dot');
Doc:=W.ActiveDocument;
TekShop:=DataShop.ListShop.ObjectList.Elements[0] as TShop;
FindAndInsert('###номер магазина&',TekShop.Shnumber);
FindAndInsert('###название магазина&',TekShop.Shname);
FindAndInsert('###адрес магазина&',TekShop.ShAddress);
FindAndInsert('###инн&',TekShop.ShINN);
FindAndInsert('###телефон&',TekShop.ShPhone);
FindAndInsert('###мыло&',TekShop.ShMail);
FindAndInsert('###номер продажи&',inttostr(Np));
DataShop.ListProdazhaOtchet.Expression:='Prodazha.allInstances->Select(pnumber='+inttostr(Np)+')';
ProdTov:=DataShop.ListProdazhaOtchet.ObjectList.Elements[0] as TProdazha;
FindAndInsert('###дата продажи&',DateToStr(ProdTov.Pdate));
FindAndInsert('###дата оплаты&',DateToStr(ProdTov.Pdate)+' 20:00');
i:=Doc.Tables.Count;
Tabl:=Doc.Tables.Item(i);
n:=DataShop.ListProdazhaOtchet.Count;
sum:=0;
for i:=0 to n-1 do
begin
ProdTov:=DataShop.ListProdazhaOtchet.ObjectList.Elements[i] as TProdazha;
Tabl.Cell(i+2,1).Range.Text:=inttostr(i+1);
Tabl.Cell(i+2,2).Range.Text:=ProdTov.PZtov_name;
Tabl.Cell(i+2,2).Range.ParagraphFormat.Alignment:=0;
Tabl.Cell(i+2,3).Range.Text:=inttostr(ProdTov.Pcount);
Tabl.Cell(i+2,4).Range.Text:=floattostr(ProdTov.PRprice);
Tabl.Cell(i+2,5).Range.Text:=floattostr(ProdTov.PRprice*ProdTov.Pcount);
sum:=sum+ProdTov.PRprice*ProdTov.Pcount;
if i<>n-1 then
Tabl.Rows.Add;
end;
FindAndInsert('###сумма&',FloatToStr(sum)+' руб.');
DataShop.ListProdazhaOtchet.Expression:='Prodazha.allInstances';
Doc.SaveAs(FileName+'.doc',1);
W.visible:=true;
end; //if
end;
//Создание накладной заказа
procedure NakladnayaZakaz(FileName: string; zak: integer);
var Doc, Tabl: variant;
i,n: integer;
sum: real;
begin
if FileExists(ExtractFileDir(Application.ExeName)+'\Накладная заявки.dot') then
begin
W:=CreateOleObject('Word.Application');
W.Documents.Add(ExtractFileDir(Application.ExeName)+'\Накладная заявки.dot');
Doc:=W.ActiveDocument;
TekShop:=DataShop.ListShop.ObjectList.Elements[0] as TShop;
FindAndInsert('###номер магазина&',TekShop.Shnumber);
FindAndInsert('###название магазина&',TekShop.Shname);
FindAndInsert('###адрес магазина&',TekShop.ShAddress);
FindAndInsert('###инн&',TekShop.ShINN);
FindAndInsert('###телефон&',TekShop.ShPhone);
FindAndInsert('###мыло&',TekShop.ShMail);
DataShop.ListZakupkaOtchet.Expression:='Zakaz.allInstances->select(znumber='+inttostr(zak)+')';
TekZTov:=DataShop.ListZakupkaOtchet.ObjectList.Elements[0] as TZakaz;
FindAndInsert('###номер заказа&',inttostr(Zak));
FindAndInsert('###дата заказа&',DateToStr(TekZTov.Zdate));
i:=Doc.Tables.Count;
Tabl:=Doc.Tables.Item(i);
n:=DataShop.ListZakupkaOtchet.Count;
sum:=0;
for i:=0 to n-1 do
begin
TekZTov:=DataShop.ListZakupkaOtchet.ObjectList.Elements[i] as TZakaz;
Tabl.Cell(i+2,1).Range.Text:=inttostr(i+1);
Tabl.Cell(i+2,2).Range.Text:=TekZTov.Zname;
Tabl.Cell(i+2,2).Range.ParagraphFormat.Alignment:=0;
Tabl.Cell(i+2,3).Range.Text:=inttostr(TekZTov.Zcount);
Tabl.Cell(i+2,4).Range.Text:=floattostr(TekZTov.Zprice);
Tabl.Cell(i+2,5).Range.Text:=floattostr(TekZTov.Zprice*TekZTov.Zcount);
sum:=sum+TekZTov.Zprice*TekZTov.Zcount;
if i<>n-1 then
Tabl.Rows.Add;
end;
FindAndInsert('###сумма&',FloatToStr(sum)+' руб.');
DataShop.ListZakupkaOtchet.Expression:='Zakaz.allInstances';
Doc.SaveAs(FileName+'.doc',1);
W.visible:=true;
end; //if
end;
//*****************************************************************************
//*****************************************************************************
//*****************************************************************************
//Закрытие формы
procedure TMainform.N2Click(Sender: TObject);
begin
Mainform.Close;
end;
//Активизация формы
procedure TMainform.FormActivate(Sender: TObject);
begin
PageControl1.Width:=Mainform.Width-8;
PageControl1.Height:=Mainform.Height-167;
PageControl1.Top:=96;
PageControl1.Left:=0;
DirApplication:=ExtractFileDir(Application.ExeName)+'\shop.xml';
Application.HelpFile:=ExtractFileDir(Application.ExeName)+'\help\help.hlp';
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.Active:=true;
DateTimePicker2.Date:=now;
DateTimePicker4.Date:=now;
DateTimePicker6.Date:=now;
StatusBar1.Panels[1].Text:='Сегодня: '+DateTimeToStr(now);
StatusBar1.Panels[2].Text:='© ALEXX "Магазин бытовой техники" 2009';
end;
//Изменение размера
procedure TMainform.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
PageControl1.Width:=Mainform.Width-8;
PageControl1.Height:=Mainform.Height-167;
end;
//При закрытии формы
procedure TMainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if SpeedButton45.Enabled then
OtmenaProdazhi;
if SpeedButton35.Enabled then
OtmenaZakaza;
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.UpdateDatabase;
registr.Close;
main_sc.Close;
Vremya.Enabled:=false;
Application.Terminate;
end;
procedure TMainform.N9Click(Sender: TObject);
begin
TabSheet2.TabVisible:=true;
TabSheet2.PageIndex:=0;
PageControl1.ActivePage:=TabSheet2;
SpeedButton8.Enabled:=true;
SpeedButton9.Enabled:=false;
SpeedButton10.Enabled:=false;
end;
//Вызов формы смены пароля
procedure TMainform.N10Click(Sender: TObject);
begin
ChangePass.ShowModal;
end;
procedure TMainform.SpeedButton2Click(Sender: TObject);
begin
TabSheet2.TabVisible:=false;
SpeedButton10Click(nil);
SpeedButton13Click(nil);
SpeedButton7Click(nil);
SpeedButton28Click(nil);
end;
procedure TMainform.BoldGrid1DblClick(Sender: TObject);
begin
BoldEdit1.Enabled:=true;
BoldEdit2.Enabled:=true;
BoldEdit3.Enabled:=true;
BoldEdit5.Enabled:=true;
SpeedButton11.Enabled:=false;
SpeedButton12.Enabled:=true;
SpeedButton13.Enabled:=true;
BoldComboBox1.Enabled:=true;
end;
procedure TMainform.BoldGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
SpeedButton13Click(Mainform);
end;
procedure TMainform.SpeedButton8Click(Sender: TObject);
begin
BoldEdit10.Enabled:=true;
BoldEdit11.Enabled:=true;
BoldEdit12.Enabled:=true;
BoldEdit13.Enabled:=true;
BoldEdit14.Enabled:=true;
BoldEdit15.Enabled:=true;
BoldMemo2.Enabled:=true;;
SpeedButton9.Enabled:=true;
SpeedButton10.Enabled:=true;
SpeedButton8.Enabled:=false;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton9Click(Sender: TObject);
begin
if (messagedlg('Подтвердите сохранение изменений!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TBoldQueueable.ApplyAll;
SpeedButton8.Enabled:=true;
SpeedButton9.Enabled:=false;
SpeedButton10.Enabled:=false;
BoldEdit10.Enabled:=false;
BoldEdit11.Enabled:=false;
BoldEdit12.Enabled:=false;
BoldEdit13.Enabled:=false;
BoldEdit14.Enabled:=false;
BoldEdit15.Enabled:=false;
BoldMemo2.Enabled:=false;;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton10Click(Sender: TObject);
begin
SpeedButton8.Enabled:=true;
SpeedButton9.Enabled:=false;
SpeedButton10.Enabled:=false;
BoldEdit10.Enabled:=false;
BoldEdit11.Enabled:=false;
BoldEdit12.Enabled:=false;
BoldEdit13.Enabled:=false;
BoldEdit14.Enabled:=false;
BoldEdit15.Enabled:=false;
BoldMemo2.Enabled:=false;;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton12Click(Sender: TObject);
begin
if (messagedlg('Подтвердите сохранение изменений!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TBoldQueueable.ApplyAll;
SpeedButton11.Enabled:=true;
SpeedButton12.Enabled:=false;
SpeedButton13.Enabled:=false;
BoldEdit1.Enabled:=false;
BoldEdit2.Enabled:=false;
BoldEdit3.Enabled:=false;
BoldEdit5.Enabled:=false;
BoldComboBox1.Enabled:=false;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton13Click(Sender: TObject);
begin
SpeedButton11.Enabled:=true;
SpeedButton12.Enabled:=false;
SpeedButton13.Enabled:=false;
BoldEdit1.Enabled:=false;
BoldEdit2.Enabled:=false;
BoldEdit3.Enabled:=false;
BoldEdit5.Enabled:=false;
BoldComboBox1.Enabled:=false;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton5Click(Sender: TObject);
begin
BoldEdit4.Enabled:=true;
SpeedButton6.Enabled:=true;
SpeedButton7.Enabled:=true;
SpeedButton3.Enabled:=false;
SpeedButton4.Enabled:=false;
SpeedButton5.Enabled:=false;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton6Click(Sender: TObject);
begin
if (messagedlg('Подтвердите сохранение изменений!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TBoldQueueable.ApplyAll;
SpeedButton6.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton5.Enabled:=true;
BoldEdit4.Enabled:=false;
end;
//Возврат в исходное состояние
procedure TMainform.SpeedButton7Click(Sender: TObject);
begin
SpeedButton6.Enabled:=false;
SpeedButton7.Enabled:=false;
SpeedButton3.Enabled:=true;
SpeedButton4.Enabled:=true;
SpeedButton5.Enabled:=true;
BoldEdit4.Enabled:=false;
end;
procedure TMainform.BoldGrid2SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
SpeedButton7Click(Mainform);
end;
//Удаление отдела
procedure TMainform.SpeedButton4Click(Sender: TObject);
var i:integer;
begin
i:= DataShop.ListOtdels.CurrentIndex;
if i<>-1 then
begin
tekOtdel:=DataShop.ListOtdels.ObjectList.Elements[i] as TOtdel;
if (messagedlg('Подтвердите удаление отдела "'+tekOtdel.Oname+'"'+
#13+'Вместе с отделом будет удален администратор и все группы товара!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
tekOtdel.Delete;
end;
end;
procedure TMainform.SpeedButton3Click(Sender: TObject);
begin
TabSheet3.TabVisible:=true;
TabSheet2.PageIndex:=0;
PageControl1.ActivePage:=TabSheet2;
TabSheet3.Show;
end;
procedure TMainform.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['A'..'я','0'..'9',#8,' ']) then
key:=#0;
if (key=#8)and (Length(Edit4.Text)<=1) then
begin
SpeedButton14.Enabled:=false;
SpeedButton15.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
Edit7.Enabled:=false;
MaskEdit1.Enabled:=false;
end;
if (key in ['A'..'я','0'..'9']) then
begin
SpeedButton14.Enabled:=true;
SpeedButton15.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
Edit7.Enabled:=true;
MaskEdit1.Enabled:=true;
end;
end;
procedure TMainform.SpeedButton15Click(Sender: TObject);
begin
SpeedButton14.Enabled:=false;
SpeedButton15.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
Edit7.Enabled:=false;
MaskEdit1.Enabled:=false;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
MaskEdit1.Clear;
end;
//Создание нового отдела
procedure TMainform.SpeedButton14Click(Sender: TObject);
var NewOtdel, ExOtdel: TOtdel;
i: integer;
dr: TDate;
ExAdmin, NewAdmin: TAdmin;
botdelexist, badminexsist, flag: Boolean;
begin
if (Edit5.Text<>'')and(Edit6.Text<>'')and(Edit7.Text<>'')and(MaskEdit1.Text<>' . . ') then
begin
botdelexist:=false;
badminexsist:=false;
flag:=False;
for i:=0 to DataShop.ListOtdels.Count-1 do
begin
ExOtdel:=DataShop.ListOtdels.ObjectList.Elements[i] as TOtdel;
if ExOtdel.Oname=Edit4.Text then
botdelexist:=true
end;
if not botdelexist then
begin
for i:=0 to DataShop.ListAdmin.Count-1 do
begin
ExAdmin:=DataShop.ListAdmin.ObjectList.Elements[i] as TAdmin;
if (ExAdmin.Afam=Edit5.Text)and(ExAdmin.Aname=Edit6.Text)and
(ExAdmin.Asname=Edit7.Text)and(ExAdmin.Adr=StrToDate(MaskEdit1.Text)) then
badminexsist:=true;
end;
if not(badminexsist) then
begin
if (messagedlg('Подтвердите добавление отдела "'+Edit4.Text+'"',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
try
dr:=StrToDate(MaskEdit1.Text);
Except
MessageDlg('Неверно введена дата рождения!'+#13+'Попробуйте еще раз!',mtError,[mbOK],0);
MaskEdit1.Clear;
flag:=true;
end;
if not(flag) then
begin
NewOtdel:=TOtdel.Create(nil);
NewOtdel.Oname:=Edit4.Text;
NewAdmin:=TAdmin.Create(nil);
NewAdmin.Afam:=Edit5.Text;
NewAdmin.Aname:=Edit6.Text;
NewAdmin.Asname:=Edit7.Text;
NewAdmin.Adr:=dr;
NewAdmin.Zaveduet:=NewOtdel;
NewOtdel.Prinadlezhit:=DataShop.BoldSystemHandleShop.System.ClassByExpressionName['Shop'].BoldObjects[0] as TShop;
DataShop.ListOtdels.Last;
SpeedButton15Click(Mainform);
end;
end;
end
else
ShowMessage('Администратор с такими данными уже существует!');
end
else
ShowMessage('Отдел '+Edit4.Text+ ' уже существует!');
end;
end;
procedure TMainform.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['A'..'я',#8]) then
key:=#0;
end;
procedure TMainform.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8]) then
key:=#0;
end;
procedure TMainform.SpeedButton17Click(Sender: TObject);
begin
TabSheet3.TabVisible:=false;
SpeedButton15Click(nil);
SpeedButton19Click(nil);
end;
procedure TMainform.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['A'..'я','0'..'9',#8,' ']) then
key:=#0;
if (key=#8)and (Length(Edit8.Text)<=1) then
begin
SpeedButton18.Enabled:=false;
SpeedButton19.Enabled:=false;
BoldComboBox3.Enabled:=false;
end;
if (key in ['A'..'я','0'..'9']) then
begin
SpeedButton18.Enabled:=true;
SpeedButton19.Enabled:=true;
BoldComboBox3.Enabled:=true;
end;
end;
//Удаление группы
procedure TMainform.SpeedButton20Click(Sender: TObject);
var i,j:integer;
begin
i:= DataShop.ListOtdelGroups.CurrentIndex;
j:= DataShop.ListOtdels.CurrentIndex;
if (i<>-1)and(j<>-1) then
begin
TekGroup:=DataShop.ListOtdelGroups.ObjectList.Elements[i] as TGroup;
TekOtdel:=DataShop.ListOtdels.ObjectList.Elements[j] as TOtdel;
if (messagedlg('Подтвердите удаление группы "'+TekGroup.Gname+'" '+'из отдела "'+tekOtdel.Oname+'"!'+
#13+'Вместе с отделом будут удалены все товары данного отдела!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TekGroup.Delete;
end;
end;
procedure TMainform.SpeedButton19Click(Sender: TObject);
begin
Edit8.Clear;
SpeedButton18.Enabled:=false;
SpeedButton19.Enabled:=false;
end;
//Создание новой группы
procedure TMainform.SpeedButton18Click(Sender: TObject);
var NewGroup, ExGropup: TGroup;
i: integer;
Bgroupexsist: Boolean;
begin
Bgroupexsist:=false;
TekOtdel:=DataShop.ListOtdels.ObjectList.Elements[DataShop.ListOtdels.CurrentIndex] as TOtdel;
for i:=0 to DataShop.ListGroups.Count-1 do
begin
ExGropup:=DataShop.ListGroups.ObjectList.Elements[i] as TGroup;
if Edit8.Text=ExGropup.Gname then
Bgroupexsist:=true;
end;
if not(Bgroupexsist) then
begin
if (messagedlg('Подтвердите добавление группы "'+Edit8.Text+'" в отдел '+TekOtdel.Oname,mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
NewGroup:=TGroup.Create(nil);
NewGroup.Gname:=Edit8.Text;
NewGroup.Prinadlezhit:=TekOtdel;
NewGroup.Zakupaetsya:=DataShop.ListBases.ObjectList.Elements[DataShop.ListBases.CurrentIndex] as TBase;
Edit8.Clear;
SpeedButton18.Enabled:=false;
SpeedButton19.Enabled:=false;
end;
end
else
begin
ShowMessage('Группа с таким названием уже существует!'+#13+
'Введите другое название группы!');
Edit8.Clear;
end;
end;
procedure TMainform.TabSheet3Hide(Sender: TObject);
begin
SpeedButton15Click(Mainform);
Edit8.Clear;
end;
procedure TMainform.SpeedButton21Click(Sender: TObject);
begin
SpeedButton21.Enabled:=false;
SpeedButton22.Enabled:=true;
SpeedButton23.Enabled:=true;
SpeedButton20.Enabled:=false;
BoldEdit8.Enabled:=true;
end;
procedure TMainform.SpeedButton22Click(Sender: TObject);
begin
if (messagedlg('Подтвердите сохранение изменений!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TBoldQueueable.ApplyAll;
SpeedButton23Click(Mainform);
end;
procedure TMainform.SpeedButton23Click(Sender: TObject);
begin
SpeedButton23.Enabled:=false;
SpeedButton22.Enabled:=false;
SpeedButton20.Enabled:=true;
SpeedButton21.Enabled:=true;
BoldEdit8.Enabled:=false;
end;
procedure TMainform.SpeedButton26Click(Sender: TObject);
begin
BoldEdit9.Enabled:=true;
BoldMemo1.Enabled:=true;
SpeedButton24.Enabled:=false;
SpeedButton25.Enabled:=false;
SpeedButton26.Enabled:=false;
SpeedButton27.Enabled:=true;
SpeedButton28.Enabled:=true;
end;
procedure TMainform.SpeedButton28Click(Sender: TObject);
begin
BoldEdit9.Enabled:=false;
BoldMemo1.Enabled:=false;
SpeedButton24.Enabled:=true;
SpeedButton25.Enabled:=true;
SpeedButton26.Enabled:=true;
SpeedButton27.Enabled:=false;
SpeedButton28.Enabled:=false;
end;
procedure TMainform.SpeedButton27Click(Sender: TObject);
begin
if (messagedlg('Подтвердите сохранение изменений!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TBoldQueueable.ApplyAll;
SpeedButton28Click(Mainform);
end;
procedure TMainform.SpeedButton24Click(Sender: TObject);
begin
AddBase.Showmodal;
end;
//Удаление товарной базы
procedure TMainform.SpeedButton25Click(Sender: TObject);
var i: integer;
begin
i:=DataShop.ListBases.CurrentIndex;
if i<>-1 then
begin
TekBase:=DataShop.ListBases.ObjectList.Elements[i] as TBase;
if (messagedlg('Подтвердите удаление товарной базы "'+TekBase.Bname+'"'+
#13+'Вместе с базой будут удалены все товары, хранящиеся на ней!',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TekBase.Delete;
end;
end;
procedure TMainform.N11Click(Sender: TObject);
begin
TabSheet1.TabVisible:=true;
PageControl1.ActivePage:=TabSheet1;
end;
//Добавление нового товара
procedure TMainform.SpeedButton29Click(Sender: TObject);
var i, j: integer;
flag: Boolean;
ExTov, NewTov: TTov_base;
Price: real;
begin
if (Edit9.Text<>'')and(Edit10.Text<>'') then
begin
i:=DataShop.ListBases.CurrentIndex;
j:=DataShop.ListBaseGroup.CurrentIndex;
TekBase:=DataShop.ListBases.ObjectList.Elements[i] as TBase;
TekGroup:=DataShop.ListBaseGroup.ObjectList.Elements[j] as TGroup;
flag:=false;
if not(FindTovarBase(Edit9.Text)) then
begin
if (messagedlg('Подтвердите добавление товара "'+Edit9.Text+'" в группу "'+TekGroup.Gname+'" '+
'базы "'+TekBase.Bname+'"',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
try
Price:=StrToFloat(Edit10.Text);
Except
flag:=true;
ShowMessage('Неверно указана цена!'+#13+'Проверьте правильность ввода!');
Edit10.Clear;
end;
if not flag then
begin
NewTovar(Edit9.Text, Price, SpinEdit1.Value, SpinEdit2.Value,
false, 0, TekBase, TekGroup, NewTov);
SpeedButton30Click(nil);
end;
end;
end
else
begin
ShowMessage('Данный товар уже существует!'+#13+
'Введите другое название товара!');
Edit8.Clear;
end;
end
else
ShowMessage('Введены не все данные!');
end;
procedure TMainform.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,',']) then
key:=#0;
end;
procedure TMainform.SpeedButton30Click(Sender: TObject);
begin
Edit9.Clear;
Edit10.Clear;
SpinEdit1.Value:=0;
SpinEdit2.Value:=1;
SpeedButton29.Enabled:=false;
SpeedButton30.Enabled:=false;
SpeedButton31.Enabled:=true;
SpeedButton32.Enabled:=true;
end;
procedure TMainform.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#8)and (Length(Edit9.Text)<=1) then
begin
SpeedButton29.Enabled:=false;
SpeedButton30.Enabled:=false;
SpeedButton31.Enabled:=true;
SpeedButton32.Enabled:=true;
end
else
begin
SpeedButton29.Enabled:=true;
SpeedButton30.Enabled:=true;
SpeedButton31.Enabled:=false;
SpeedButton32.Enabled:=false;
end
end;
//Удаление товара
procedure TMainform.SpeedButton31Click(Sender: TObject);
var i: integer;
begin
i:=DataShop.ListBaseGroupTovar.CurrentIndex;
if i<>-1 then
begin
TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[i] as TTov_base;
if (messagedlg('Подтвердите удаление товара "'+TekBTov.Tname+'"',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
TekBTov.Delete;
end;
end;
procedure TMainform.SpeedButton32Click(Sender: TObject);
begin
EditTovBase.showmodal;
end;
procedure TMainform.N14Click(Sender: TObject);
begin
TabSheet6.TabVisible:=true;
PageControl1.ActivePage:=TabSheet6;
end;
//Пометка на заказ товара
procedure TMainform.BoldAsStringRenderer1SetColor(Element: TBoldElement;
var AColor: TColor; Representation: Integer; Expression: String);
var st: string;
begin
st:=Element.EvaluateExpressionAsString('zakazCount.asString',1);
if st<>'0' then AColor:=$77FFFF{clLime};
end;
//Заказ товара
procedure TMainform.BoldSortingGrid4DblClick(Sender: TObject);
begin
TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[DataShop.ListBaseGroupTovar.CurrentIndex] as TTov_base;
if TekBTov.TBcount>0 then
if TekBTov.TBcount<>1 then
ZakazForm.ShowModal
else
begin
if (messagedlg('Заказать товар "'+TekBTov.Tname+'"'+#13+
'в количестве 1 единицы?',mtConfirmation,[mbYes,mbNo],0)=mrYes) then
begin
TekBTov.ZakazCount:=1;
SpeedButton35.Enabled:=true;
FlagZakaz:=true;
BoldSortingGrid4.Repaint;
end;
end
else
MessageDlg('Невозможно заказать товар с нулевым остатком!',mtError,[mbOK],0);
end;
//Отмена заказа
procedure TMainform.SpeedButton34Click(Sender: TObject);
begin
if MessageDlg('Отменить заказ товара?',mtInformation,[mbYes, mbNo],0)=mrYes then
OtmenaZakaza;
end;
procedure TMainform.SpeedButton34MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Отменить заказ товара';
end;
procedure Tmainform.Clear_status;
begin
StatusBar1.Panels[0].Text:='';
end;
procedure TMainform.TabSheet7MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Clear_status;
end;
procedure TMainform.SpeedButton36MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Пометить товар на заказ';
end;
procedure TMainform.SpeedButton35MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Заказать в магазин выбранный товар';
end;
//Заказ товара
procedure TMainform.SpeedButton35Click(Sender: TObject);
var i,j,n,step, t_index, zak, number,gr: integer;
NewMTovar: TTov_mag;
begin
n:=DataShop.ListBaseTovar.Count-1;
j:=0;
for i:=0 to n do
begin
TekBTov:=DataShop.ListBaseTovar.ObjectList.Elements[i] as TTov_base;
if TekBTov.ZakazCount>0 then
inc(j);
end;
step:=ProgressBar1.Max div j;
DataShop.ListZakupkaOtchet.Last;
i:=DataShop.ListZakupkaOtchet.CurrentIndex;
if i<>-1 then
begin
TekZTov:=DataShop.ListZakupkaOtchet.ObjectList.Elements[i] as TZakaz;
number:=TekZTov.Znumber;
end;
if i<>-1 then
zak:=number+1
else
zak:=1;
for i:=0 to n do
begin
TekBTov:=DataShop.ListBaseTovar.ObjectList.Elements[i] as TTov_base;
if TekBTov.ZakazCount>0 then
begin
NewZTov:=TZakaz.Create(nil);
NewZTov.Znumber:=zak;
NewZTov.Zdate:=Now;
NewZTov.Zname:=TekBTov.Tname;
NewZTov.Zprice:=TekBTov.Tprice;
NewZTov.Zcount:=TekBTov.ZakazCount;
TekGroup:=TekBTov.BPrinadlezhit;
if FindTovarShop(NewZTov.Zname,TekGroup.gname,t_index) then
begin
TekMTov:=DataShop.ListTovar.ObjectList.Elements[t_index] as TTov_mag;
TekMTov.TMcount:=TekMTov.TMcount+NewZTov.Zcount;
end
else
begin
NewMagTovar(TekBTov.Tname,TekBTov.Tprice,TekBTov.Tgarant,TekBTov.ZakazCount,TekBTov.BPrinadlezhit,NewMTovar);
end;
TekBTov.TBcount:=TekBTov.TBcount-TekBTov.ZakazCount;
TekBTov.ZakazCount:=0;
BoldSortingGrid4.Repaint;
if i<>j then
ProgressBar1.Position:=ProgressBar1.Position+step
else
ProgressBar1.Position:=ProgressBar1.Max;
end;
end;
if ProgressBar1.Position=ProgressBar1.Max then
begin
MessageDlg('Заказ товара успешно завершен!',mtInformation,[mbOK],0);
if MessageDlg('Создать накладную заказа?',mtInformation,[mbYes, mbNo],0)=mrYes then
if SaveWord.Execute then
begin
DataShop.BoldSystemHandleShop.UpdateDatabase;
DataShop.BoldSystemHandleShop.Active:=false;
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.Active:=true;
if not FileExists(SaveWord.FileName) then
begin
NakladnayaZakaz(SaveWord.FileName,zak);
end
else
MessageDlg('Файл с таким именем уже существует!'+#13+'Введите другое имя файла!',mtError,[mbOK],0);
end;
end
else
MessageDlg('При заказе товара произошла ошибка!',mtError,[mbOK],0);
ProgressBar1.Position:=ProgressBar1.Min;
SpeedButton35.Enabled:=false;
FlagZakaz:=false;
end;
procedure TMainform.SpeedButton37MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Найти товар';
end;
procedure TMainform.SpeedButton37Click(Sender: TObject);
var p: integer;
begin
if Edit11.Text<>'' then
if PoiskTovarBase(Edit11.Text,False,p) then
DataShop.ListBaseGroupTovar.CurrentIndex:=p
else
if (MessageDlg('Просмотр данных завершен! Повторить поиск сначала?',mtInformation,[mbYes,mbNo],0)=mrYes) then
if PoiskTovarBase(Edit11.Text,true,p) then
DataShop.ListBaseGroupTovar.CurrentIndex:=p;
end;
procedure TMainform.SpeedButton38MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Закрыть окно';
end;
procedure TMainform.SpeedButton38Click(Sender: TObject);
begin
if SpeedButton35.Enabled then
begin
if (MessageDlg('Заказанный товар не проведен. Если закрыть окно, заказ пропадет'+#13+
'Хотите закрыть окно?',mtInformation,[mbYes,mbNo],0)=mrYes) then
begin
SpeedButton34Click(nil);
Edit11.Clear;
SpeedButton35.Enabled:=false;
SpeedButton34.Enabled:=true;
SpeedButton36.Enabled:=true;
TabSheet7.TabVisible:=False;
CheckBox3.Checked:=false;
DataShop.ListBaseGroupTovar.Expression:='bHranit';
end;
end
else
begin
Edit11.Clear;
SpeedButton35.Enabled:=false;
SpeedButton34.Enabled:=true;
SpeedButton36.Enabled:=true;
TabSheet7.TabVisible:=False;
CheckBox3.Checked:=false;
DataShop.ListBaseGroupTovar.Expression:='bHranit';
end;
end;
procedure TMainform.FormCreate(Sender: TObject);
begin
FlagZakaz:=false;
end;
procedure TMainform.SpeedButton39Click(Sender: TObject);
var p: integer;
begin
if Edit12.Text<>'' then
if PoiskTovarShop(Edit12.Text,False,p) then
DataShop.ListTovar.CurrentIndex:=p
else
if (MessageDlg('Просмотр данных завершен! Повторить поиск сначала?',mtInformation,[mbYes,mbNo],0)=mrYes) then
if PoiskTovarShop(Edit12.Text,true,p) then
DataShop.ListTovar.CurrentIndex:=p;
end;
procedure TMainform.SpeedButton40Click(Sender: TObject);
var p: integer;
begin
if Edit13.Text<>'' then
if PoiskTovarShopGroup(Edit13.Text,False,p) then
DataShop.ListOtdelsGroupTovar.CurrentIndex:=p
else
if (MessageDlg('Просмотр данных завершен! Повторить поиск сначала?',mtInformation,[mbYes,mbNo],0)=mrYes) then
if PoiskTovarShopGroup(Edit13.Text,true,p) then
DataShop.ListOtdelsGroupTovar.CurrentIndex:=p;
end;
procedure TMainform.SpeedButton16MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Закрыть окно';
end;
procedure TMainform.SpeedButton41Click(Sender: TObject);
var s: string;
flag: boolean;
begin
flag:=true;
S:='';
TekMTov:=DataShop.ListOtdelsGroupTovar.ObjectList.Elements[DataShop.ListOtdelsGroupTovar.CurrentIndex] as TTov_mag;
if MessageDlg('Продать товар "'+TekMTov.Tname+'"',mtInformation,[mbYes, mbNo],0)=mrYes then
while flag do
begin
s:=InputBox('Продажа товара','Укажите количество продаваемого товара "'+
TekMTov.Tname+'" с ценой реализации:'+floattostr(TekMTov.TMprice)+
#13+'Количество товара в магазине: '+inttostr(TekMTov.TMcount)+' (ед.)','0');
if s<>'' then
begin
try
Kol:=StrToInt(s);
except
ShowMessage('Неверно указано количество продаваемого товара!'+#13+'Повторите ввод количества товара!');
end;
if ((kol>0)and(kol<=TekMTov.TMcount))or(kol=0) then
flag:=false
else
ShowMessage('Количество товара должно быть больше нуля, но не больше общего количества!'+#13+
'Повторите ввод цены реализации');
end
else
ShowMessage('Укажите количество продаваемого товара (ед.)!');
end; // while
if kol<>0 then
begin
TekMTov.Prodcount:=TekMTov.Prodcount+kol;
BoldSortingGrid1.Repaint;
SpeedButton45.Enabled:=true;
end;
end;
procedure TMainform.SpeedButton42Click(Sender: TObject);
var flag: boolean;
s: String;
pricereal: real;
begin
flag:=true;
S:='';
TekMTov:=DataShop.ListOtdelsGroupTovar.ObjectList.Elements[DataShop.ListOtdelsGroupTovar.CurrentIndex] as TTov_mag;
if MessageDlg('Редактировать цену реализации товара "'+TekMTov.Tname+'"',mtInformation,[mbYes, mbNo],0)=mrYes then
begin
while flag do
begin
s:=InputBox('Редактирование цены реализации','Укажите цену реализации (руб. за ед.) товара "'+
TekMTov.Tname+'" с закупочной ценой:'+floattostr(TekMTov.Tprice),floattostr(TekMTov.Tprice));
if s<>'' then
begin
try
pricereal:=StrToFloat(s);
except
ShowMessage('Неверно указана цена реализации товара!'+#13+'Повторите ввод цены!');
end;
if (pricereal>=TekMTov.Tprice)or(pricereal=0) then
flag:=false
else
ShowMessage('Цена реализации товара должна быть выше закупочной!'+#13+
'Повторите ввод цены реализации');
end
else
ShowMessage('Укажите цену реализации товара (руб. за ед.)!');
end; // while
if pricereal<>0 then
TekMTov.TMprice:=pricereal;
end;
end;
procedure TMainform.SpeedButton42MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton42.Hint;
end;
procedure TMainform.SpeedButton41MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton41.Hint;
end;
procedure TMainform.RenderProdazhaSetColor(Element: TBoldElement;
var AColor: TColor; Representation: Integer; Expression: String);
var st: string;
begin
st:=Element.EvaluateExpressionAsString('prodcount.asString',1);
if st<>'0' then AColor:=$77FFFF{clLime};
end;
procedure TMainform.SpeedButton44MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton44.Hint;
end;
procedure TMainform.SpeedButton44Click(Sender: TObject);
begin
if MessageDlg('Отменить продажу товара?',mtInformation,[mbYes, mbNo],0)=mrYes then
OtmenaProdazhi;
end;
procedure TMainform.SpeedButton45MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton45.Hint;
end;
//Провод продажи
procedure TMainform.SpeedButton45Click(Sender: TObject);
var i, j, n, step, prod, number: integer;
begin
if MessageDlg('Провести продажу помеченного товара?',mtInformation,[mbYes, mbNo],0)=mrYes then
begin
n:=DataShop.ListTovar.Count-1;
j:=0;
for i:=0 to n do
begin
TekMTov:=DataShop.ListTovar.ObjectList.Elements[i] as TTov_mag;
if TekMTov.Prodcount>0 then
inc(j);
end;
step:=ProgressBar2.Max div j;
DataShop.ListProdazhaOtchet.Last;
i:=DataShop.ListProdazhaOtchet.CurrentIndex;
if i<>-1 then
begin
ProdTov:=DataShop.ListProdazhaOtchet.ObjectList.Elements[i] as TProdazha;
number:=ProdTov.Pnumber;
end;
if i<>-1 then
prod:=number+1
else
prod:=1;
for i:=0 to n do
begin
TekMTov:=DataShop.ListTovar.ObjectList.Elements[i] as TTov_mag;
if TekMTov.Prodcount>0 then
begin
NewProdazha(prod, TekMTov.Tname, TekMTov.Prodcount, TekMTov.Tprice, TekMTov.TMprice, ProdTov);
TekMTov.TMcount:=TekMTov.TMcount-kol;
TekMTov.Prodcount:=0;
BoldSortingGrid1.Repaint;
if i<>j then
ProgressBar2.Position:=ProgressBar2.Position+step
else
ProgressBar2.Position:=ProgressBar2.Max;
end;
end;
if MessageDlg('Создать накладную продажи?',mtInformation,[mbYes, mbNo],0)=mrYes then
if SaveWord.Execute then
begin
DataShop.BoldSystemHandleShop.UpdateDatabase;
DataShop.BoldSystemHandleShop.Active:=false;
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.Active:=true;
if not FileExists(SaveWord.FileName) then
begin
NakladnayaProdazha(SaveWord.FileName,prod);
end
else
MessageDlg('Файл с таким именем уже существует!'+#13+'Введите другое имя файла!',mtError,[mbOK],0);
end;
if ProgressBar2.Position=ProgressBar2.Max then
MessageDlg('Продажа товара прошла успешно!',mtInformation,[mbOK],0);
ProgressBar2.Position:=ProgressBar2.Min;
SpeedButton45.Enabled:=false;
Kol:=0;
end;
end;
procedure TMainform.SpeedButton16Click(Sender: TObject);
begin
if SpeedButton45.Enabled then
begin
if (MessageDlg('Проданный товар не проведен. Если закрыть окно, продажа пропадет'+#13+
'Хотите закрыть окно?',mtInformation,[mbYes,mbNo],0)=mrYes) then
begin
OtmenaProdazhi;
SpeedButton45.Enabled:=false;
TabSheet1.TabVisible:=False;
CheckBox2.Checked:=false;
DataShop.ListOtdelsGroupTovar.Expression:='soderzhit->select(tMcount<>0)';
end;
end
else
TabSheet1.TabVisible:=False;
CheckBox2.Checked:=false;
DataShop.ListOtdelsGroupTovar.Expression:='soderzhit->select(tMcount<>0)';
end;
procedure TMainform.SpeedButton46Click(Sender: TObject);
begin
if DateTimePicker1.Date<=DateTimePicker2.Date then
rasschet(DateTimePicker1.Date, DateTimePicker2.Date)
else
begin
MessageDlg('Неверно указан диапазон дат!'+#13+'Попробуйте еще раз!',mtError,[mbOK],0);
Label55.Caption:='0';
Label56.Caption:='0';
Label57.Caption:='0';
end;
end;
procedure TMainform.SpeedButton46MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton46.Hint;
end;
procedure TMainform.GroupBox26MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='';
end;
procedure TMainform.SpeedButton47Click(Sender: TObject);
begin
TabSheet8.TabVisible:=false;
Label55.Caption:='0';
Label56.Caption:='0';
Label57.Caption:='0';
end;
procedure TMainform.TabSheet8MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='';
end;
procedure TMainform.SpeedButton49MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton49.Hint;
end;
procedure TMainform.SpeedButton48MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton48.Hint;
end;
procedure TMainform.SpeedButton48Click(Sender: TObject);
var p: integer;
begin
if Edit14.Text<>'' then
if PoiskTovarProd(Edit14.Text,False,p) then
DataShop.ListProdazha.CurrentIndex:=p
else
if (MessageDlg('Просмотр данных завершен! Повторить поиск сначала?',mtInformation,[mbYes,mbNo],0)=mrYes) then
if PoiskTovarProd(Edit14.Text,true,p) then
DataShop.ListProdazha.CurrentIndex:=p;
end;
//Фильтрация по дате
procedure TMainform.SpeedButton49Click(Sender: TObject);
var bdate,edate: TDate;
BYear, BMonth, BDay, EYear, EMonth, EDay: Word;
Bs, Es, BMs, EMs, BDs, EDs: string;
begin
bdate:=trunc(DateTimePicker3.Date);
edate:=trunc(DateTimePicker4.Date);
DecodeDate(bdate,BYear, BMonth, BDay);
DecodeDate(edate,EYear, EMonth, EDay);
if BMonth in [1..9] then
BMs:='0'+inttostr(BMonth)
else
BMs:=inttostr(BMonth);
if EMonth in [1..9] then
EMs:='0'+inttostr(EMonth)
else
EMs:=inttostr(EMonth);
if BDay in [1..9] then
BDs:='0'+inttostr(BDay)
else
BDs:=inttostr(BDay);
if EDay in [1..9] then
EDs:='0'+inttostr(EDay)
else
EDs:=inttostr(EDay);
Bs:='#'+inttostr(BYear)+'-'+BMs+'-'+BDs;
Es:='#'+inttostr(EYear)+'-'+EMs+'-'+EDs;
if bdate<=edate then
DataShop.ListProdazha.Expression:='Prodazha.allInstances->select((pdate>='+Bs+') and (pdate<='+Es+'))';
end;
procedure TMainform.SpeedButton50Click(Sender: TObject);
var p: integer;
begin
if Edit15.Text<>'' then
if PoiskTovarZakaz(Edit15.Text,False,p) then
DataShop.ListZakupka.CurrentIndex:=p
else
if (MessageDlg('Просмотр данных завершен! Повторить поиск сначала?',mtInformation,[mbYes,mbNo],0)=mrYes) then
if PoiskTovarZakaz(Edit15.Text,true,p) then
DataShop.ListZakupka.CurrentIndex:=p;
end;
procedure TMainform.SpeedButton51Click(Sender: TObject);
var bdate,edate: TDate;
BYear, BMonth, BDay, EYear, EMonth, EDay: Word;
Bs, Es, BMs, EMs, BDs, EDs: string;
begin
bdate:=trunc(DateTimePicker5.Date);
edate:=trunc(DateTimePicker6.Date);
DecodeDate(bdate,BYear, BMonth, BDay);
DecodeDate(edate,EYear, EMonth, EDay);
if BMonth in [1..9] then
BMs:='0'+inttostr(BMonth)
else
BMs:=inttostr(BMonth);
if EMonth in [1..9] then
EMs:='0'+inttostr(EMonth)
else
EMs:=inttostr(EMonth);
if BDay in [1..9] then
BDs:='0'+inttostr(BDay)
else
BDs:=inttostr(BDay);
if EDay in [1..9] then
EDs:='0'+inttostr(EDay)
else
EDs:=inttostr(EDay);
Bs:='#'+inttostr(BYear)+'-'+BMs+'-'+BDs;
Es:='#'+inttostr(EYear)+'-'+EMs+'-'+EDs;
if bdate<=edate then
DataShop.ListZakupka.Expression:='Zakaz.allInstances->select((zdate>='+Bs+') and (zdate<='+Es+'))';
end;
procedure TMainform.N7Click(Sender: TObject);
begin
my.ShowModal;
end;
procedure TMainform.SpeedButton52Click(Sender: TObject);
begin
Edit14.Clear;
TabSheet9.TabVisible:=false;
end;
procedure TMainform.SpeedButton53Click(Sender: TObject);
begin
Edit15.Clear;
TabSheet10.TabVisible:=false;
end;
procedure TMainform.SpeedButton54Click(Sender: TObject);
begin
Edit12.Clear;
CheckBox1.Checked:=false;
DataShop.ListTovar.Expression:='Tov_mag.allInstances->select(tMcount<>0)';
TabSheet4.TabVisible:=false;
end;
procedure TMainform.SpeedButton55Click(Sender: TObject);
begin
SpeedButton28Click(nil);
TabSheet5.TabVisible:=false;
end;
procedure TMainform.SpeedButton33Click(Sender: TObject);
begin
SpeedButton30Click(nil);
TabSheet6.TabVisible:=false;
end;
procedure TMainform.SpeedButton29MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton29.Hint;
end;
procedure TMainform.SpeedButton30MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton30.Hint;
end;
procedure TMainform.SpeedButton32MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton32.Hint;
end;
procedure TMainform.SpeedButton31MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton31.Hint;
end;
procedure TMainform.SpeedButton43MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton43.Hint;
end;
procedure TMainform.SpeedButton8MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton8.Hint;
end;
procedure TMainform.SpeedButton9MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton9.Hint;
end;
procedure TMainform.SpeedButton10MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton10.Hint;
end;
procedure TMainform.SpeedButton11MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton11.Hint;
end;
procedure TMainform.SpeedButton12MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton12.Hint;
end;
procedure TMainform.SpeedButton13MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton13.Hint;
end;
procedure TMainform.SpeedButton3MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton3.Hint;
end;
procedure TMainform.SpeedButton4MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton4.Hint;
end;
procedure TMainform.SpeedButton5MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton5.Hint;
end;
procedure TMainform.SpeedButton6MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton6.Hint;
end;
procedure TMainform.SpeedButton7MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton7.Hint;
end;
procedure TMainform.SpeedButton14MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton14.Hint;
end;
procedure TMainform.SpeedButton15MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton15.Hint;
end;
procedure TMainform.SpeedButton21MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton21.Hint;
end;
procedure TMainform.SpeedButton22MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton22.Hint;
end;
procedure TMainform.SpeedButton23MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton23.Hint;
end;
procedure TMainform.SpeedButton20MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton20.Hint;
end;
procedure TMainform.SpeedButton18MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton18.Hint;
end;
procedure TMainform.SpeedButton19MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=SpeedButton19.Hint;
end;
procedure TMainform.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
DataShop.ListTovar.Expression:='Tov_mag.allInstances'
else
DataShop.ListTovar.Expression:='Tov_mag.allInstances->select(tMcount<>0)';
end;
procedure TMainform.CheckBox1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
StatusBar1.Panels[0].Text:=CheckBox1.Hint;
end;
procedure TMainform.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
DataShop.ListOtdelsGroupTovar.Expression:='soderzhit'
else
DataShop.ListOtdelsGroupTovar.Expression:='soderzhit->select(tMcount<>0)';
end;
procedure TMainform.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
DataShop.ListBaseGroupTovar.Expression:='bHranit'
else
DataShop.ListBaseGroupTovar.Expression:='bHranit->select(tBcount<>0)';
end;
procedure TMainform.N12Click(Sender: TObject);
begin
TabSheet4.TabVisible:=true;
PageControl1.ActivePage:=TabSheet4;
end;
procedure TMainform.N15Click(Sender: TObject);
begin
TabSheet5.TabVisible:=true;
PageControl1.ActivePage:=TabSheet5;
end;
procedure TMainform.N19Click(Sender: TObject);
begin
TabSheet7.TabVisible:=true;
PageControl1.ActivePage:=TabSheet7;
end;
procedure TMainform.N18Click(Sender: TObject);
begin
TabSheet8.TabVisible:=true;
PageControl1.ActivePage:=TabSheet8;
end;
procedure TMainform.N20Click(Sender: TObject);
begin
TabSheet9.TabVisible:=true;
PageControl1.ActivePage:=TabSheet9;
end;
procedure TMainform.N21Click(Sender: TObject);
begin
TabSheet10.TabVisible:=true;
PageControl1.ActivePage:=TabSheet10;
end;
procedure TMainform.ToolButton1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Просмотр основных сведений о магазине';
end;
procedure TMainform.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[0].Text:='';
end;
procedure TMainform.ToolButton3MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Просмотр статистических данных по магазину';
end;
procedure TMainform.ToolButton4MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Добавление в магазин нового отдела или группы в одел';
end;
procedure TMainform.ToolButton5MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Добавить новую закупочную базу';
end;
procedure TMainform.ToolButton6MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Выполнение различных оперций с товаром (продажа, редактирование...)';
end;
procedure TMainform.ToolButton7MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Посмотреть все остатки товара магазина';
end;
procedure TMainform.ToolButton8MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Добавление товара в закупочные базы';
end;
procedure TMainform.ToolButton9MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Заказ товара в магазин';
end;
procedure TMainform.ToolButton11MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Просмотр всех продаж магазина';
end;
procedure TMainform.ToolButton12MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Просмотр всех закупок магазина';
end;
procedure TMainform.ToolButton14MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Руководство пользователя';
end;
procedure TMainform.SpeedButton43Click(Sender: TObject);
begin
if SaveExcel.Execute then
begin
DataShop.BoldSystemHandleShop.UpdateDatabase;
DataShop.BoldSystemHandleShop.Active:=false;
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.Active:=true;
if not(FileExists(SaveExcel.FileName)) then
ExportOstatki(SaveExcel.FileName)
else
MessageDlg('Файл с таким именем уже существует!'+#13+'Введите другое имя файла!',mtError,[mbOK],0);
end;
end;
procedure TMainform.N24Click(Sender: TObject);
begin
if SaveExcel.Execute then
begin
DataShop.BoldSystemHandleShop.UpdateDatabase;
DataShop.BoldSystemHandleShop.Active:=false;
DataShop.BoldPersistenceHandleFileXMLShop.FileName:=DirApplication;
DataShop.BoldSystemHandleShop.Active:=true;
if not(FileExists(SaveExcel.FileName)) then
ExportOstatkiBase(SaveExcel.FileName)
else
MessageDlg('Файл с таким именем уже существует!'+#13+'Введите другое имя файла!',mtError,[mbOK],0);
end;
end;
procedure TMainform.BitBtn1Click(Sender: TObject);
begin
NakladnayaProdazha('primer.doc',9);
end;
procedure TMainform.VremyaTimer(Sender: TObject);
begin
StatusBar1.Panels[1].Text:='Сегодня: '+DateTimeToStr(now);
end;
procedure TMainform.ToolBar1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='';
end;
procedure TMainform.Timer1Timer(Sender: TObject);
begin
if Mainform.AlphaBlendValue>250 then
begin
Timer1.Enabled:=false;
MainForm.AlphaBlend:=false;
end
else
Mainform.AlphaBlendValue:=Mainform.AlphaBlendValue+5
end;
procedure TMainform.ToolButton15MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Экспорт остатков товара в магазине в Excel';
end;
procedure TMainform.ToolButton16MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[0].Text:='Экспорт остатков товара на базах в Excel';
end;
procedure TMainform.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked then
DataShop.ListBaseGroupTovar.Expression:='bHranit'
else
DataShop.ListBaseGroupTovar.Expression:='bHranit->select(tBcount<>0)';
end;
procedure TMainform.ToolButton14Click(Sender: TObject);
begin
Application.HelpCommand(HelpContext,1);
end;
procedure TMainform.N6Click(Sender: TObject);
begin
Application.HelpCommand(HelpContext,1);
end;
procedure TMainform.N25Click(Sender: TObject);
begin
TabSheet11.TabVisible:=True;
PageControl1.ActivePage:=TabSheet11;
end;
procedure TMainform.SpeedButton56Click(Sender: TObject);
begin
SpeedButton13Click(nil);
TabSheet11.TabVisible:=false;
end;
end.
Соседние файлы в папке Магазин бытовой техники