Курсовая работа: Информационно-справочная система мебельного магазина

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

{***********************************************************************************************}

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls,

Mask, DBCtrls, jpeg, ShellAPI, ComObj;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

N5: TMenuItem;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

PageControl2: TPageControl;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

Button9: TButton;

Button10: TButton;

Button11: TButton;

PageControl3: TPageControl;

TabSheet10: TTabSheet;

Button12: TButton;

Button13: TButton;

Button14: TButton;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

PageControl4: TPageControl;

TabSheet14: TTabSheet;

Button15: TButton;

Button16: TButton;

Button17: TButton;

TabSheet15: TTabSheet;

TabSheet16: TTabSheet;

TabSheet17: TTabSheet;

PageControl5: TPageControl;

TabSheet18: TTabSheet;

Button18: TButton;

Button19: TButton;

Button20: TButton;

TabSheet19: TTabSheet;

TabSheet20: TTabSheet;

TabSheet21: TTabSheet;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

Button29: TButton;

Button30: TButton;

Button31: TButton;

Button32: TButton;

Button33: TButton;

Button34: TButton;

Button35: TButton;

Button36: TButton;

Button37: TButton;

Button38: TButton;

Button39: TButton;

Button40: TButton;

Button41: TButton;

Button42: TButton;

Button43: TButton;

Button44: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

DBEdit37: TDBEdit;

DBEdit38: TDBEdit;

DBEdit39: TDBEdit;

DBEdit40: TDBEdit;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

DBEdit41: TDBEdit;

Label42: TLabel;

DBEdit42: TDBEdit;

DBEdit43: TDBEdit;

Label43: TLabel;

Label44: TLabel;

DBEdit44: TDBEdit;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

DBEdit45: TDBEdit;

DBEdit46: TDBEdit;

DBEdit47: TDBEdit;

DBEdit48: TDBEdit;

DBEdit49: TDBEdit;

DBEdit50: TDBEdit;

Label51: TLabel;

DBEdit51: TDBEdit;

DBEdit52: TDBEdit;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

DBEdit53: TDBEdit;

DBEdit54: TDBEdit;

DBEdit55: TDBEdit;

DBEdit56: TDBEdit;

DBEdit57: TDBEdit;

DBEdit58: TDBEdit;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

Label65: TLabel;

Label66: TLabel;

DBEdit59: TDBEdit;

DBEdit60: TDBEdit;

DBEdit61: TDBEdit;

DBEdit62: TDBEdit;

DBEdit63: TDBEdit;

DBEdit64: TDBEdit;

DBEdit65: TDBEdit;

DBEdit66: TDBEdit;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Image1: TImage;

Edit1: TEdit;

Label67: TLabel;

Edit2: TEdit;

ComboBox1: TComboBox;

Label68: TLabel;

Label69: TLabel;

Label70: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

ComboBox2: TComboBox;

Label71: TLabel;

Label72: TLabel;

Label73: TLabel;

Label74: TLabel;

Edit3: TEdit;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

Edit4: TEdit;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

RadioButton12: TRadioButton;

RadioButton13: TRadioButton;

RadioButton14: TRadioButton;

RadioButton15: TRadioButton;

RadioButton16: TRadioButton;

Label75: TLabel;

Label76: TLabel;

Label77: TLabel;

Label78: TLabel;

Edit5: TEdit;

Edit6: TEdit;

ComboBox5: TComboBox;

ComboBox6: TComboBox;

RadioButton17: TRadioButton;

RadioButton18: TRadioButton;

RadioButton19: TRadioButton;

RadioButton20: TRadioButton;

RadioButton21: TRadioButton;

RadioButton22: TRadioButton;

RadioButton23: TRadioButton;

RadioButton24: TRadioButton;

RadioButton25: TRadioButton;

Label79: TLabel;

Label80: TLabel;

Label81: TLabel;

Label82: TLabel;

ComboBox7: TComboBox;

ComboBox8: TComboBox;

Edit7: TEdit;

Edit8: TEdit;

RadioButton26: TRadioButton;

RadioButton27: TRadioButton;

RadioButton28: TRadioButton;

RadioButton29: TRadioButton;

RadioButton30: TRadioButton;

RadioButton31: TRadioButton;

RadioButton32: TRadioButton;

RadioButton33: TRadioButton;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel12: TPanel;

Panel13: TPanel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

procedure Button37Click(Sender: TObject);

procedure Button38Click(Sender: TObject);

procedure Button39Click(Sender: TObject);

procedure Button40Click(Sender: TObject);

procedure Button41Click(Sender: TObject);

procedure Button42Click(Sender: TObject);

procedure Button43Click(Sender: TObject);

procedure Button44Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

procedure RadioButton11Click(Sender: TObject);

procedure RadioButton12Click(Sender: TObject);

procedure RadioButton13Click(Sender: TObject);

procedure RadioButton14Click(Sender: TObject);

procedure RadioButton15Click(Sender: TObject);

procedure RadioButton16Click(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure RadioButton17Click(Sender: TObject);

procedure RadioButton18Click(Sender: TObject);

procedure RadioButton19Click(Sender: TObject);

procedure RadioButton20Click(Sender: TObject);

procedure RadioButton21Click(Sender: TObject);

procedure RadioButton22Click(Sender: TObject);

procedure RadioButton23Click(Sender: TObject);

procedure RadioButton24Click(Sender: TObject);

procedure RadioButton25Click(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure RadioButton27Click(Sender: TObject);

procedure RadioButton31Click(Sender: TObject);

procedure RadioButton26Click(Sender: TObject);

procedure RadioButton28Click(Sender: TObject);

procedure RadioButton29Click(Sender: TObject);

procedure RadioButton30Click(Sender: TObject);

procedure RadioButton32Click(Sender: TObject);

procedure RadioButton33Click(Sender: TObject);

procedure Edit7Change(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

procedure Edit8Change(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; ed:string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet2;

pagecontrol2.ActivePage:=tabsheet6;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet3;

pagecontrol3.ActivePage:=tabsheet10;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet4;

pagecontrol4.ActivePage:=tabsheet14;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet5;

pagecontrol5.ActivePage:=tabsheet18;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet1;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet1;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet7;

adotable1.Append;

dbgrid1.Enabled:=false;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet8;

adotable1.Edit;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet9;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet11;

adotable2.Append;

dbgrid2.Enabled:=false;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet12;

adotable2.edit;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet13;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet15;

adotable3.Append;

dbgrid3.Enabled:=false;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet16;

adotable3.Edit;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet17;

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet19;

adotable4.Append;

dbgrid4.Enabled:=false;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet20;

adotable4.Edit;

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet21;

end;

procedure TForm1.Button21Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Post;

adotable1.Cancel;

dbgrid1.Enabled:=true;

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Post;

adotable1.Cancel;

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Delete;

adotable1.Cancel;

dbgrid1.Enabled:=true;

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Cancel;

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Delete;

end;

procedure TForm1.Button26Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

end;

procedure TForm1.Button27Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Post;

adotable2.Cancel;

dbgrid2.Enabled:=true;

end;

procedure TForm1.Button28Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Delete;

adotable2.Cancel;

dbgrid2.Enabled:=true;

end;

procedure TForm1.Button29Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Post;

adotable2.Cancel;

end;

procedure TForm1.Button30Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Cancel;

end;

procedure TForm1.Button31Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Delete;

end;

procedure TForm1.Button32Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

end;

procedure TForm1.Button33Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Post;

adotable3.Cancel;

dbgrid3.Enabled:=true;

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Delete;

adotable3.Cancel;

dbgrid3.Enabled:=true;

end;

procedure TForm1.Button35Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Post;

adotable3.Cancel;

end;

procedure TForm1.Button36Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Cancel;

end;

procedure TForm1.Button37Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Delete;

end;

procedure TForm1.Button38Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

end;

procedure TForm1.Button39Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Post;

adotable4.Cancel;

dbgrid4.Enabled:=true;

end;

procedure TForm1.Button40Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Delete;

adotable4.Cancel;

dbgrid4.Enabled:=true;

end;

procedure TForm1.Button41Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Post;

adotable4.Cancel;

end;

procedure TForm1.Button42Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Cancel;

end;

procedure TForm1.Button43Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Delete;

end;

procedure TForm1.Button44Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if edit1.Text<>'' then begin

if( ComboBox1.Text='Наименование')then

ADOTable1.Locate('Наименование',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Тип')then

ADOTable1.Locate('Тип',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Цвет')then

ADOTable1.Locate('Цвет',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Размер')then

ADOTable1.Locate('Размер',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Производитель')then

ADOTable1.Locate('Производитель',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Материал')then

ADOTable1.Locate('Материал',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Цена')then

ADOTable1.Locate('Цена',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Код')then

ADOTable1.Locate('Код',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Количество')then

Источник: https://otherreferats.allbest.ru/download/1170457/

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)