Розробка додатку складського обліку автозапчастин

end;

if checkbox9.Checked=false then begin

dbnavigator1.Visible:=false;

dbnavigator2.Visible:=false;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form1.Caption:=Розробка програми Бараннік О.І. КІ-107 '+' Відключено з '+datetostr(date)+' '+timetostr(time);

n2.Checked:=false;

n3.Checked:=true;

adoconnection1.Connected:=false;

panel1.Visible:=false;

form1.Height:=630;

statusbar1.SimpleText:='Відключено';

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form1.Caption:=Розробка програми Бараннік О.І. КІ-107 '+' Подключено з '+datetostr(date)+' '+timetostr(time);

adotable1.Active:=true;

adotable2.Active:=true;

n3.Checked:=false;

n2.Checked:=true;

adoconnection1.Connected:=true;

panel1.Visible:=true;

form1.Height:=843;

statusbar1.SimpleText:='Підключено';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

If groupbox4.Visible = true then

begin

groupbox4.visible:=false;

n5.Checked:=false;

end else

begin

groupbox4.visible:=true;

n5.Checked:=true;

end;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if colordialog1.Execute then begin

form1.Color:=colordialog1.Color;

form2.Color:=colordialog1.Color;

end;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);

begin

if Application.MessageBox('Додати запис?','', MB_YESNO+MB_ICONQUESTION) = IDYES

then

else

begin

DataSet.Cancel;

Abort;

end;

end;

procedure TForm1.Edit2Enter(Sender: TObject);

begin

fe:='Пошук';

end;

procedure TForm1.Edit1Enter(Sender: TObject);

begin

fe:='Фільтр';

end;

procedure TForm1.N12Click(Sender: TObject);

begin

if fe='Фільтр' then edit1.Clear;

if fe='Пошук' then edit2.Clear;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

if fe='Фільтр' then Clipboard.SetTextBuf(PChar(edit1.SelText));

if fe='Пошук' then Clipboard.SetTextBuf(PChar(edit2.SelText));

end;

procedure TForm1.N14Click(Sender: TObject);

begin

if fe='Фільтр' then

begin

Clipboard.SetTextBuf(PChar(edit1.SelText));

edit1.SelText := '';

end;

if fe='Пошук' then Clipboard.SetTextBuf(PChar(edit2.SelText));

begin

Clipboard.SetTextBuf(PChar(edit2.SelText));

edit2.SelText := '';

end;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

if fe='Фільтр' then edit1.SelText := Clipboard.AsText;

if fe='Пошук' then edit2.SelText := Clipboard.AsText;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form5.Show;

end;

end.

Модуль 2

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Menus;

type

TForm2 = class(TForm)

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

Button1: TButton;

Label1: TLabel;

memo1: TMemo;

Button2: TButton;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

form2.Height:=125;

form2.Width:=451;

end;

procedure TForm2.FormDestroy(Sender: TObject);

begin

Adoquery1.Active:=false;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

adoquery1.SQL:=memo1.Lines;

adoquery1.Active:=true;

form2.Height:=430;

form2.Width:=1033;

borderstyle:=bsSizeable;

end;

procedure TForm2.FormResize(Sender: TObject);

begin

dbgrid1.Width:=form2.Width-29;

dbnavigator1.Width:=form2.Width-29;

dbgrid1.height:=form2.height-200;

dbnavigator1.top:=dbgrid1.Height+120;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form2.Hide;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

if SaveDialog1.Execute then

memo1.Lines.SaveToFile(savedialog1.FileName + '.txt');

end;

procedure TForm2.N2Click(Sender: TObject);

begin

if opendialog1.Execute then

memo1.Lines.LoadFromFile(opendialog1.FileName);

end;

end.

Модуль 3

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ComCtrls;

type

TForm3 = class(TForm)

Label1: TLabel;

RichEdit1: TRichEdit;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

Модуль 5

unit Unit5;

interface

uses

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

Dialogs, StdCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

OpenDialog1: TOpenDialog;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

if opendialog1.Execute then

edit1.Text:=opendialog1.FileName;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

form1.ADOConnection1.Connected:=false;

form1.Adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit1.Text+';Persist Security Info=False';

form1.ADOConnection1.Connected:=true;

form2.Adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit1.Text+';Persist Security Info=False';

form1.Caption:='Навчальна практика Пашков Д.В. КІ-107 "Станція технічного обслуговування"'+' Підключено з '+datetostr(date)+' '+timetostr(time);

form1.adotable1.Active:=true;

form1.adotable2.Active:=true;

if form1.radiogroup1.ItemIndex=1 then begin

form1.AdoConnection1.GetFieldNames('Работы', form1.ComboBox1.Items);

form1.AdoConnection1.GetFieldNames('Работы', form1.ComboBox2.Items);

end;

if form1.radiogroup1.ItemIndex=0 then begin

form1.AdoConnection1.GetFieldNames('Сотрудники', form1.ComboBox1.Items);

form1.AdoConnection1.GetFieldNames('Сотрудники', form1.ComboBox2.Items);

form1.StatusBar1.SimpleText:='Підключено';

form5.Hide;

end;

end;

end.

Размещено на Allbest.ru