Клиентское программное обеспечение автоматизации рабочего места
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ls, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,shellapi;
TAutor = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Memo1: TMemo;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Autor: TAutor;UMain;
{$R *.dfm}TAutor.BitBtn2Click(Sender: TObject);(application.Handle,open,
SysUtils, Classes, IBDatabase, DB;
TDM = class(TDataModule)
IBDATA: TIBDatabase;
IBT: TIBTransaction;
private
{ Private declarations }
public
{ Public declarations }
end;
DM: TDM;UBASE, UDETAL, UMain;
{$R *.dfm}.Upoisk;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, DB, IBQuery,
IBCustomDataSet, IBTable, Buttons;
TFpoisk = class(TForm)
RadioGroup1: TRadioGroup;
Edit1: TEdit;
BitBtn1: TBitBtn;
IBTable1: TIBTable;
DataSource1: TDataSource;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
ComboBox1: TComboBox;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
XPManifest1: TXPManifest;
Splitter1: TSplitter;
procedure BitBtn1Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Fpoisk: TFpoisk;UBASE, UDETAL, UDM, UINS_DET, UMain, UREP_INS, UREPORT;
{$R *.dfm}TFpoisk.BitBtn1Click(Sender: TObject);T:STRING;I:INTEGER;F:TEXTFILE;fpoisk.RadioGroup3.ItemIndex of
:
//поиск по ведомости.TableName:=VEDOMOST;.IBTable1.Filtered:=false;.IBTable1.FILTER:=NUM like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;
except(ошибка загрузки запроса из файла);
end;
end;
//--------------------------------------------------------
:
begin
//поиск по базе
case fpoisk.RadioGroup2.ItemIndex of
0:
begin
//по номенклатуре
try
IBTABLE1.TableName:=NOMENCLATURE;
fpoisk.IBTable1.Filtered:=false;.IBTable1.FILTER:=name like+#39+%+edit1.Text+%+#39;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки запроса);;
end;
1:
begin
//по оборудованию
try
IBTABLE1.TableName:=EQUIPMENT;.IBTable1.Filtered:=false;.IBTable1.FILTER:=NAME like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);;
end;
2:
begin
try
IBTABLE1.TableName:=TIP_O;.IBTable1.Filtered:=false;.IBTable1.FILTER:=DESCRIPTION like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);;
end;
3:
begin
//поиск по делаям
case fpoisk.RadioGroup1.ItemIndex of
0:
begin
//обозначение.TableName:=DETAILS;.IBTable1.Filtered:=false;.IBTable1.FILTER:=ASIGNATION like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);
end;
end;
1:
begin
//поиск по полному наименованию
try
IBTABLE1.TableName:=DETAILS;.IBTable1.Filtered:=false;.IBTable1.FILTER:=FULLNAME like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);;
end;
2:
begin
//поиск по ячейкам
try
IBTABLE1.TableName:=DETAILS;.IBTable1.Filtered:=false;.IBTable1.FILTER:=CELL like+#39+%+edit1.Text+%+#39;;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);
end;
end;
3:
begin
//поиск по количеству
try
IBTABLE1.TableName:=DETAILS;.IBTable1.Filtered:=false;.IBTable1.FILTER:=REMAINS+COMBOBOX1.Text+EDIT1.Text;.IBTable1.Filtered:=true;.IBTable1.Active:=TRUE;(ошибка загрузки SQL-запроса);;
end;
end;
end;;end;end;end;TFpoisk.RadioGroup3Click(Sender: TObject);fpoisk.RadioGroup3.ItemIndex of
: fpoisk.RadioGroup2.Enabled:=true;
: begin fpoisk.RadioGroup2.Enabled:=false; fpoisk.RadioGroup1.Enabled:=false;end;;;TFpoisk.RadioGroup2Click(Sender: TObject);fpoisk.RadioGroup2.ItemIndex of
..2: fpoisk.RadioGroup1.Enabled:=false;
:fpoisk.RadioGroup1.Enabled:=true;;;TFpoisk.RadioGroup1Click(Sender: TObject);fpoisk.RadioGroup1.ItemIndex of
: fpoisk.ComboBox1.Enabled:=true;
..2:fpoisk.ComboBox1.Enabled:=false;;;.