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

al;

{$ R * .dfm} TFormSearchPodrazd.FormActivate (Sender: TObject) ;. Caption:= Накладні, що надійшли в + FormJournal.ComboBoxPodrazd.Text + з raquo ;;. Items:=FormJournal.ComboBoxPodrazd.Items ;; TFormSearchPodrazd.Panel3Click (Sender: TObject) ;. Show; .Close ;; TFormSearchPodrazd.ComboBox1Click (Sender: TObject);.Close;.Parameters.ParamByName(laquo;praquo;).Value:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];.Open;;.UnitSprav;

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

Dialogs, ComCtrls, ExtCtrls, DB, ADODB, StdCtrls, DBCtrls, Menus;

TFormSprav=class (TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

ADOTable1: TADOTable;

GroupBox1: TGroupBox;

Label1: TLabel;

ComboBox1: TComboBox;

GroupBox2: TGroupBox;

Label2: TLabel;

ComboBox2: TComboBox;

ADOQuery1: TADOQuery;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit2: TEdit;

ADOQuery2: TADOQuery;

Label5: TLabel;

ComboBox3: TComboBox;

ADOQuery3: TADOQuery;

GroupBox3: TGroupBox;

ADOTable2: TADOTable;

Edit3: TEdit;

Label6: TLabel;

Label8: TLabel;

ComboBox4: TComboBox;

ADOQuery4: TADOQuery;

ListBox1: TListBox;

GroupBox4: TGroupBox;

Label7: TLabel;

ADOQuery5: TADOQuery;

ADOQuery6: TADOQuery;

Label9: TLabel;

Edit4: TEdit;

Label10: TLabel;

Edit5: TEdit;

Label11: TLabel;

Label12: TLabel;

Edit6: TEdit;

Label13: TLabel;

Edit7: TEdit;

Edit8: TEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N501: TMenuItem;

N502: TMenuItem;

ADOQuery7: TADOQuery;

ADOQuery8: TADOQuery;

procedure Panel3Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure ComboBox1Click (Sender: TObject);

procedure ComboBox2Click (Sender: TObject);

procedure ComboBox3Click (Sender: TObject);

procedure ComboBox4Click (Sender: TObject);

procedure ListBox1Click (Sender: TObject);

procedure N502Click (Sender: TObject);

procedure N501Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

FormSprav: TFormSprav;

i: integer; UnitAutor, UnitSelect, UnitOtchMass;

{$ R * .dfm} TFormSprav.Panel3Click (Sender: TObject) ;. Terminate ;; TFormSprav.FormShow (Sender: TObject);

ComboBox1.Clear;

ADOTable1.Active:=true;

ADOTable1.First;

while ADOTable1.Eof=false do

begin

ComboBox1.Items.Add (ADOTable1.Fields [1] .AsString);

ADOTable1.Next;

end ;; TFormSprav.ComboBox1Click (Sender: TObject) ;. Clear; .Active:=true; .Parameters [0] .Value:=ComboBox1.Items [ComboBox1.ItemIndex] ;. Close;.Open; ADOQuery1.Eof=false do

ComboBox2.Items.Add (ADOQuery1.Fields [0] .AsString);

ADOQuery1.Next ;;; TFormSprav.ComboBox2Click (Sender: TObject);

ADOQuery2.Active:=true;

ADOQuery2.Parameters [0] .Value:=ComboBox2.Items [ComboBox2.ItemIndex];

ADOQuery2.Close;

ADOQuery2.Open;

Edit1.Text:=ADOQuery2.Fields [0] .AsString;

Edit2.Text:=ADOQuery2.Fields [1] .AsString;

ADOQuery3.Active:=true;

<...