ПЗ (Автоматизированная информационная система предприятия компьютерного сервиса), страница 9

end;

procedure TfmLogin.bbtCancelClick(Sender: TObject);

begin

Close;

end;

procedure TfmLogin.FormShow(Sender: TObject);

begin

end.

Программный модуль Main.pas

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, XPMan, ImgList, ActnList, StdActns,

XPStyleActnCtrls, ActnMan, ToolWin, ActnCtrls, ActnMenus, jpeg, ExtCtrls;

type

TfmMain = class(TForm)

bbtStat: TBitBtn;

XPManifest1: TXPManifest;

ActionManager1: TActionManager;

ImageList1: TImageList;

FileExit1: TFileExit;

acSpravReq: TAction;

acSpravSpec: TAction;

acSpravManagers: TAction;

acSpravClients: TAction;

acSpravStaff: TAction;

acSpravStore: TAction;

acSpravPrice: TAction;

acWorkOrders: TAction;

acWorkSup: TAction;

acRepStat: TAction;

bbtOrder: TBitBtn;

bbtPriceStore: TBitBtn;

acRepJobByEmp: TAction;

bbtPriceJob: TBitBtn;

Image1: TImage;

bbtSupOrder: TBitBtn;

ActionMainMenuBar1: TActionMainMenuBar;

procedure acSpravReqExecute(Sender: TObject);

procedure acSpravSpecExecute(Sender: TObject);

procedure acSpravManagersExecute(Sender: TObject);

procedure acSpravClientsExecute(Sender: TObject);

procedure acSpravStaffExecute(Sender: TObject);

procedure acSpravStoreExecute(Sender: TObject);

procedure acSpravPriceExecute(Sender: TObject);

procedure acWorkOrdersExecute(Sender: TObject);

procedure acWorkSupExecute(Sender: TObject);

procedure acRepStatExecute(Sender: TObject);

procedure acRepJobByEmpExecute(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmMain: TfmMain;

implementation

uses ReqUnit, PostUnit, ManagerUnit, ClientUnit, DMUnit, StaffUnit, StoreUnit, PriceUnit,

OrderListUnit, SupListUnit, StatUnit, DiapasonUnit, ReportsUnit, FileCtrl,

LoginUnit;

{$R *.dfm}

procedure TfmMain.acSpravReqExecute(Sender: TObject);

begin

fmRequisite.Show;

end;

procedure TfmMain.acSpravSpecExecute(Sender: TObject);

begin

fmPost.Show;

end;

procedure TfmMain.acSpravManagersExecute(Sender: TObject);

begin

fmManagers.Show;

end;

procedure TfmMain.acSpravClientsExecute(Sender: TObject);

begin

fmClients.Show;

end;

procedure TfmMain.acSpravStaffExecute(Sender: TObject);

begin

fmStaff.Show;

end;

procedure TfmMain.acSpravStoreExecute(Sender: TObject);

begin

fmStore.Show;

end;

procedure TfmMain.acSpravPriceExecute(Sender: TObject);

begin

fmPrice.Show;

end;

procedure TfmMain.acWorkOrdersExecute(Sender: TObject);

begin

fmOrderList.Show;

end;

procedure TfmMain.acWorkSupExecute(Sender: TObject);

begin

fmSupplierList.Show;

end;

procedure TfmMain.acRepStatExecute(Sender: TObject);

begin

fmStat.Show;

end;

procedure TfmMain.acRepJobByEmpExecute(Sender: TObject);

var

Date1, Date2: TDate;

begin

Date1 := Date;

Date2 := Date;

if GetDiapason(Date1, Date2) then

Rep_JobList(Date1, Date2);

end;

procedure TfmMain.FormShow(Sender: TObject);

begin

bbtPriceJob.Caption := 'Прайс-лист';

bbtPriceStore.Caption := 'Прайс-листназапчасти';

bbtOrder.Caption := 'Заказы на ремонт';

bbtSupOrder.Caption := 'Заявки на запчасти';

end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

fmLogin.Close;

end;

end.

Программный модуль Client.pas

unit Client;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, Mask;

type

TfmClients = class(TForm)

Panel1: TPanel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Panel2: TPanel;

DBGrid1: TDBGrid;

bbtPrint: TBitBtn;

bbtGo: TBitBtn;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure bbtPrintClick(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmClients: TfmClients;

implementation

uses DMUnit, ReportsUnit, ADODB, OrderUnit, OrderListUnit;

{$R *.dfm}

procedure TfmClients.FormShow(Sender: TObject);

begin

DM.tbClients.Open;

DM.tbClients.Sort := 'ФИО_Наименование';

end;

procedure TfmClients.FormClose(Sender: TObject; var Action: TCloseAction);

begin

//Набор данных закрывается, если он не используется в других формах:

if (not fmOrderList.Showing) and (not fmOrder.Showing) then

DM.tbClients.Close;

end;

procedure TfmClients.bbtPrintClick(Sender: TObject);

begin

Rep_Any(DBGrid1, 7, Self.Caption);

end;

//Сортировка данных по выбранному столбцу:

procedure TfmClients.DBGrid1TitleClick(Column: TColumn);

begin

try

(DBGrid1.DataSource.DataSet as TADOTable).Sort := Column.FieldName;

except

Application.MessageBox('Сортировкаподанномуполюневозможна', 'Информация', MB_OK+MB_ICONINFORMATION)

end;

end;

procedure TfmClients.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

Программный модуль Manager.pas

unit Manager;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;

type

TfmManagers = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmManagers: TfmManagers;

implementation

uses DMUnit, OrderListUnit, OrderUnit;

{$R *.dfm}

procedure TfmManagers.FormShow(Sender: TObject);

begin

DM.tbManagers.Open;

end;

procedure TfmManagers.FormClose(Sender: TObject; var Action: TCloseAction);

begin

procedure TfmManagers.BitBtn1Click(Sender: TObject);

begin

Close;

end;

end.

Программный модуль OrderList.pas

unit OrderList;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, ComCtrls;

type

TfmOrderList = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

bbtPrint: TBitBtn;

GroupBox1: TGroupBox;

chbDate1: TCheckBox;

chbDate2: TCheckBox;

dtpDate1: TDateTimePicker;

dtpDate2: TDateTimePicker;

chbClient: TCheckBox;

chbManager: TCheckBox;

dblcbClient: TDBLookupComboBox;

dblcbManager: TDBLookupComboBox;

BitBtn4: TBitBtn;

BitBtn1: TBitBtn;

DBNavigator2: TDBNavigator;

chbStatus: TCheckBox;

dblcbStatus: TDBLookupComboBox;

bbtNewOrder: TBitBtn;

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure bbtPrintClick(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure chbDate1Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure bbtNewOrderClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmOrderList: TfmOrderList;

implementation

uses DMUnit, ReportsUnit, ADODB, MainUnit, OrderUnit;

{$R *.dfm}

procedure TfmOrderList.FormShow(Sender: TObject);

begin

DM.dstOrders.Open;

dtpDate1.Date := Date;

dtpDate2.Date := Date;

chbDate1Click(Self);

end;

procedure TfmOrderList.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DM.dstOrders.Close;

end;

procedure TfmOrderList.bbtPrintClick(Sender: TObject);

begin

Rep_Any(DBGrid1, 7, Self.Caption);

end;

//Сортировка данных в таблице по выбранному столбцу:

procedure TfmOrderList.DBGrid1TitleClick(Column: TColumn);

begin

if Column.FieldName = 'Клиент' then

DM.dstOrders.Sort := 'КлиентID'

else if Column.FieldName = 'Менеджер' then

DM.dstOrders.Sort := 'МенеджерID'

else if Column.FieldName = 'Работник' then

DM.dstOrders.Sort := 'РаботникID'

else if Column.FieldName = 'Статус' then

DM.dstOrders.Sort := 'СтатусID'

else if Column.FieldName = 'Телефоны' then

DM.dstOrders.Sort := 'КлиентID'

else

DM.dstOrders.Sort := Column.FieldName;

end;

procedure TfmOrderList.chbDate1Click(Sender: TObject);

var

Filter: string;

begin

Filter := '';

if chbDate1.Checked then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'ДатаПриема>= ' + QuotedStr(DateToStr(dtpDate1.Date));

end;

if chbDate2.Checked then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'ДатаПриема<= ' + QuotedStr(DateToStr(dtpDate2.Date));

end;

if chbClient.Checked and (dblcbClient.KeyValue <> Null) then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'КлиентID = ' + IntToStr(dblcbClient.KeyValue);

end;

if chbManager.Checked and (dblcbManager.KeyValue <>Null) then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'МенеджерID = ' + IntToStr(dblcbManager.KeyValue);

end;

if chbStatus.Checked and (dblcbStatus.KeyValue <>Null) then

begin

if Filter <> '' then

Filter := Filter + ' and ';

Filter := Filter + 'СтатусID = ' + IntToStr(dblcbStatus.KeyValue);

end;

if Filter <> '' then

begin

DM.dstOrders.Filter := Filter;

DM.dstOrders.Filtered := True;

end

else

DM.dstOrders.Filtered := False;

end;

procedure TfmOrderList.DBGrid1DblClick(Sender: TObject);

begin

fmOrder.Show;

end;

procedure TfmOrderList.FormCreate(Sender: TObject);

begin

dtpDate1.Date := Date;

dtpDate2.Date := Date;

end;

procedure TfmOrderList.BitBtn1Click(Sender: TObject);

begin

Close;

end;

procedure TfmOrderList.bbtNewOrderClick(Sender: TObject);

begin

DM.dstOrders.Insert;

fmOrder.Show;

end;

end.

Программный модуль Order.pas

unit Order;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DBCtrls, ExtCtrls, Grids, DBGrids, Mask;

type

TfmOrder = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Splitter2: TSplitter;

DBGrid2: TDBGrid;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label7: TLabel;

dbedSum: TDBEdit;

Label8: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label9: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label10: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

DBNavigator1: TDBNavigator;

Panel4: TPanel;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;