Реферат Розробка автоматизованої системи обліку руху ремонтованої електроапаратури

align="justify"> ADOQueryViborNaklDATE_CREATE: TDateTimeField;

ADOQueryViborNaklPODRAZD_NAME: TStringField;

ADOQueryViborNaklIZD_NAIM: TStringField;

ADOQueryViborNaklSHIP_ZAV_NOM: TStringField;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

ADOQueryDevice: TADOQuery;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

Panel12: TPanel;

Panel13: TPanel;

Panel14: TPanel;

Panel15: TPanel;

Panel16: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Panel17: TPanel;

procedure FormActivate (Sender: TObject);

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

procedure ComboBoxPodrazdClick (Sender: TObject);

procedure Panel6Click (Sender: TObject);

procedure Panel7Click (Sender: TObject);

procedure Panel8Click (Sender: TObject);

procedure Panel10Click (Sender: TObject);

procedure Panel11Click (Sender: TObject);

procedure Panel9Click (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure Panel12Click (Sender: TObject);

procedure Panel13Click (Sender: TObject);

procedure Panel15Click (Sender: TObject);

procedure Panel16Click (Sender: TObject);

procedure Panel17Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormJournal: TFormJournal; UnitAutor, UnitSelect, UnitNakl, UnitPeriod, UnitViborIzd,

UnitSearchDate, UnitSearchPodrazd;

{$ R * .dfm} TFormJournal.FormActivate (Sender: TObject) ;. Connected:=true; .Active:=true; .Open; .First; .Clear; ADOTablePodrazd.Eof=false do.Items.Add(ADOTablePodrazd.FieldByName(laquo;PODRAZD_NAMEraquo;).AsString);.Next;;;TFormJournal.FormClose(Sender: TObject;

var Action: TCloseAction) ;. Active:=false; .Connected:=false ;; TFormJournal.ComboBoxPodrazdClick (Sender: TObject);.Locate(laquo;PODRAZD_NAMEraquo;,ComboBoxPodrazd.Text,[]);.Parameters.ParamByName(laquo;praquo;).Value:=ADOTablePodrazd.FieldByName(laquo;PODRAZD_IDraquo;).AsInteger;.Open;;TFormJournal.Panel6Click(Sender: TObject) ;. Show; .Close ;; TFormJournal.Panel7Click (Sender: TObject) ;. First ;; TFormJournal.Panel8Click (Sender: TObject) ;. Prior ;; TFormJournal.Panel10Click (Sender: TObject) ;. Next ;; TFormJournal.Panel11Click (Sender: TObject) ;. Last ;; TFormJournal.Panel9Click (Sender: TObject);.Parameters.ParamByName(laquo;praquo;).Value:=ADOQueryViborNakl.FieldByName(laquo;NUMBERraquo;).AsString;.Close;.Open;;TFormJournal.DBGrid1CellClick(Column: TColumn);.Parameters.ParamByName(laquo;praquo;).Value:=ADOQueryViborNakl.FieldByName(laquo;NUMBERraquo;).AsString;.Close;.Open;;TFormJournal.Panel12Click(Sender: TObject) ;. First ;; TFormJournal.Panel13Click (Sender: TObject) ;. Prior ;; TFormJournal.Panel15Click (Sender: TObject) ;. Next ;; TFormJournal.Panel16Click (Sender: TObject) ;. Last ;; TFormJournal.Panel17Click ( Sender: TObject) ;. Show; .Hide ;; TFormJournal.N3Click (Sender: TObject);

FormPeriod.Show ;; TFormJournal.N4Click (Sender: TObject) ;. Show ;; TFormJournal.N5Click (Sender: TObject) ;. Show; .Hide ;; TFormJournal.N6Click (Sender: TObject) ; .Show; .Hide ;;. UnitNakl;

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

Dialogs, StdCtrls, CheckLst, ComCtrls, ExtCtrls, DB, ADODB, Grids,

DBGrids;

TFormNakl=class (TForm)