Реферат Розробка ІС обліку охоронюваних об'єктів ЧОП "Рубіж-М"

Тема: Новые рефераты

Click (Sender: TObject); DBGrid3EditButtonClick (Sender: TObject); DBGrid1Exit (Sender: TObject); DBGrid2Exit (Sender: TObject); DBGrid3Exit (Sender: TObject); acRepMTRListExecute (Sender: TObject); bbtContractClick (Sender: TObject); bbtAppendixClick (Sender: TObject); bbtActClick (Sender: TObject); bbtBillClick (Sender: TObject); bbtFactClick (Sender: TObject); acRepJobsExecute (Sender: TObject); acRepDefectExecute (Sender: TObject);

{Private declarations}

{Public declarations};: TfmMain; FileCtrl, uInfo, uProf, uOrgs, uDM, uPersonal, uParts, uStatistics,, uRep, uCateg, ADODB, DB;

var: 1 .. 3;// Зберігає номер таблиці-Гріда на формі

{$ R *. dfm} TfmMain.acSpravReqExecute (Sender: TObject);. Show;; TfmMain.acSpravSpecExecute (Sender: TObject);. Show;; TfmMain.acSpravClientsExecute (Sender: TObject); . Show;; TfmMain.acSpravStaffExecute (Sender: TObject);. Show;; TfmMain.acSpravStoreExecute (Sender: TObject);. Show;; TfmMain.acRepStatExecute (Sender: TObject);. Show;; TfmMain.acSpravGroupExecute (Sender: TObject );. Show;; TfmMain.FormShow (Sender: TObject);. dstOrders.Open;. dstJobs.Open;. dstOrderParts.Open;. Date:=Date;. Date:=Date; Click (Self);. SetFocus; ; TfmMain.bbtPrintClick (Sender: TObject); _Universal (DBGrid1, 7, «Журнал замовлень»);

end;

/ / Сортування даних по вибраному полю:

procedure TfmMain.DBGrid1TitleClick (Column: TColumn);

(DBGrid1.DataSource.DataSet as TADODataset). Sort:=Column.FieldName;. MessageBox («Сортування по даному полю неможлива», «Інформація», MB_OK + MB_ICONINFORMATION);; TfmMain. chbDate1Click (Sender: TObject);: string;:=«»; chbDate1.Checked thenFilter <> «» then:=Filter + « and »;:=Filter +« ДатаПріема>=» + QuotedStr (DateToStr (dtpDate1.Date));; chbDate2.Checked thenFilter <> «» then:=Filter + « and »;:=Filter +« ДатаПріема <= » + QuotedStr (DateToStr (dtpDate2.Date));; chbClient.Checked and (dblcbClient.KeyValue <> Null) thenFilter <> «» then:=Filter + « and »;:=Filter +« КліентID=» + IntToStr (dblcbClient.KeyValue);; Filter <> «» then.dstOrders.Filter:=Filter;. dstOrders.Filtered:=True;. dstOrders.Filtered:=False;; TfmMain.FormCreate (Sender: TObject);. Date:=Date;. Date:=Date;. Caption: ="Друк" + Chr (10) + «договору»;. Caption:="Друк" + Chr (10) + «Додатки»;

bbtAct.Caption:=«Друк акту» + Chr (10) + «здачі-приймання»;. Caption:="Друк" + Chr (10) + «рахунки-фактури»;;

/ / Залежно від номера Гріда, в якому знаходився курсор до натискання кнопки,

/ / виконується додавання запису до відповідного набір даних:

procedure TfmMain.bbtInsClick (Sender: TObject); GridID of

: DM.dstOrders.Insert;

: DM.dstJobs.Insert;

: DM.dstOrderParts.Insert;

end;;

/ / Залежно від номера Гріда, в якому знаходився курсор до натискання кнопки,

/ / виконується збереження запису до відповідного набір даних:

procedure TfmMain.bbtSaveClick (Sender: TObject); GridID of

: if DM.dstOrders.State in [dsEdit, dsInsert] then.dstOrders.Post;