Geum.ru

Клиентское программное обеспечение автоматизации рабочего места

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

xecSQL;:=ERROR;.IBT.RollbackRetaining;;END;.IBT.CommitRetaining;.IBTable1.Active:=FALSE;.IBTable1.Active:=TRUE;;TBASE.BitBtn4Click(Sender: TObject);

beginMessageDlg(ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ЭТУ ЗАПИСЬ?,

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin.Params.ParamByName(PAR2).Value:=BASE.IBtable1ID.Value;.ExecSQL;(ОШИБКА УДАЛЕНИЯ!+#13+

ПОПРОБУЙТЕ ЕЩЕ РАЗ!ВОЗМОЖНО ЗАПИСЬ УДАЛЕНА!);

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;.IBTable1.Active:=FALSE;.IBTable1.Active:=TRUE;

end;;TBASE.BitBtn5Click(Sender: TObject);

VAR:STRING;:=INPUTBOX(ДОБАВЛЕНИЕ ТИПА ОБОРУДОВАНИЯ,ВВЕДИТЕ НАЗВАНИЕ ОБОРУДОВАНИЯ,);

IBQuery8.Params.ParamByName(DESCRIPTION1).Value:=S;.Params.ParamByName(E_ID).Value:=BASE.IBTable1ID.Value;

TRY.ExecSQL;(Не удалось добавить данные в Таблицу, попробуйте еще раз!);

DM.IBT.RollbackRetaining;;END;.IBT.CommitRetaining;.Active:=FALSE;.Active:=TRUE;;TBASE.BitBtn6Click(Sender: TObject);

beginMessageDlg(ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ЭТУ ЗАПИСЬ?,

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin.Params.ParamByName(PAR1).Value:=BASE.IBTABLE2ID.VALUE;.ExecSQL;(ОШИБКА УДАЛЕНИЯ!+#13+

ПОПРОБУЙТЕ ЕЩЕ РАЗ!ВОЗМОЖНО ЗАПИСЬ УДАЛЕНА!);

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;.IBTable2.Active:=FALSE;.IBTable2.Active:=TRUE;

end;;

{procedure TBASE.BitBtn8Click(Sender: TObject);

beginMessageDlg(ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ЭТУ ЗАПИСЬ?,

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin.Params.ParamByName(PAR1).Value:=ID.Value;.ExecSQL;(ОШИБКА УДАЛЕНИЯ!+#13+

ПОПРОБУЙТЕ ЕЩЕ РАЗ!ВОЗМОЖНО ЗАПИСЬ УДАЛЕНА!);

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;.Close;.Open;

end;;}TBASE.BitBtn7Click(Sender: TObject);

//DETAL:=TDETAL.Create(SELF);.IBTable1.Active:=TRUE;.BitBtn1.Visible:=FALSE;DETAL.ShowModal;;TBASE.BitBtn8Click(Sender: TObject);_INS.Edit7.Text:=BASE.IBTable2DESCRIPTION1.Value;

//BASE.Close;

//DETAL:=DETAL.Create(SELF);.BitBtn7.Enabled:=FALSE;.BitBtn8.Enabled:=FALSE;.IBTable1.Active:=TRUE;

DETAL.BitBtn1.Visible:=TRUE;DETAL.ShowModal;;.UDETAL;

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

Dialogs, DB, IBCustomDataSet, IBQuery, StdCtrls, Buttons, ToolWin,

ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, IBTable, XPMan;

TDETAL = class(TForm)

GroupBox4: TGroupBox;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

ToolBar4: TToolBar;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

IBQuery10: TIBQuery;

IBQuery10ID: TIntegerField;

IBQuery10T_ID: TIntegerField;

IBQuery10ASIGNATION: TIBStringField;

IBQuery10FULLNAME: TIBStringField;

IBQuery10CELL: TIBStringField;

IBQuery10REMAINS: TIntegerField;

IBQuery10UNIT: TIBStringField;

IBQuery11: TIBQuery;

IBQuery12: TIBQuery;

DataSource4: TDataSource;

IBTable1: TIBTable;

XPManifest1: TXPManifest;

IBTable1ID: TIntegerField;

IBTable1T_ID: TIntegerField;

IBTable1ASIGNATION: TIBStringField;

IBTable1FULLNAME: TIBStringField;

IBTable1CELL: TIBStringField;

IBTable1REMAINS: TIntegerField;

IBTable1UNIT: TIBStringField;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

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

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

DETAL: TDETAL;UDM, UBASE, UMain, UINS_DET, UREP_INS, UREPORT, USET, UPR;

{$R *.dfm}TDETAL.FormClose(Sender: TObject; var Action: TCloseAction);.IBTable1.Active:=FALSE;;TDETAL.BitBtn7Click(Sender: TObject);_DET:=TINS_DET.Create(SELF);_DET.ShowModal;;TDETAL.BitBtn8Click(Sender: TObject);

beginMessageDlg(ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ЭТУ ЗАПИСЬ?,

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin.Params.ParamByName(PAR1).Value:=DETAL.IBTable1ID.Value;.ExecSQL;(ОШИБКА УДАЛЕНИЯ!+#13+

ПОПРОБУЙТЕ ЕЩЕ РАЗ!ВОЗМОЖНО ЗАПИСЬ УДАЛЕНА!);

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;.IBTable1.Active:=FALSE;.IBTable1.Active:=TRUE;

end;;TDETAL.BitBtn1Click(Sender: TObject);_INS.Edit8.Text:=DETAL.IBTable1FULLNAME.Value;_INS.Label11.Caption:=INTTOSTR(DETAL.IBTable1REMAINS.Value);_INS.Edit10.Text:=DETAL.IBTable1CELL.Value;_INS.Tag:=DETAL.IBTable1ID.Value;.Tag:=DETAL.IBTable1REMAINS.Value;BASE.Tag<DETAL.Tag THEN.IBTable1.Edit;.IBTable1REMAINS.Value:=DETAL.Tag-BASE.Tag;.IBTable1.Edit;.IBTable1REMAINS.Value:=0;;.Close;.Close;;TDETAL.BitBtn2Click(Sender: TObject);.DBGrid4.Tag:=DETAL.IBTable1REMAINS.Value;.IBTable1.Edit;.IBTable1ID.Tag:=STRTOINT(INPUTBOX(Ввод количества оборудования,Введите количество,));.IBTable1REMAINS.Value:=DETAL.IBTable1ID.Tag+DETAL.DBGrid4.Tag;.IBTable1.Post;;.UINS_DET;

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

Dialogs, StdCtrls, Buttons, XPMan;

TINS_DET = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

GroupBox1: TGroupBox;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

Edit7: TEdit;

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

INS_DET: TINS_DET;UDETAL, UDM, UBASE, UMain, USET;

{$R *.dfm}TINS_DET.BitBtn1Click(Sender: TObject);.IBQuery11.Params.ParamByName(ASIGNATION).Value:=INS_DET.Edit1.Text;.IBQuery11.Params.ParamByName(FULLNAME).Value:=INS_DET.Edit2.Text;.IBQuery11.Params.ParamByName(CELL).Value:=INS_DET.Edit3.Text;.IBQuery11.Params.ParamByName(REMAINS).Value:=STRTOINT(INS_DET.Edit4.Text);.IBQuery11.Params.ParamByName(UNIT).Value:=INS_DET.Edit5.Text;.IBQuery11.Params.ParamByName(T_ID).Value:=BASE.IBTable2ID.Value;.IBQuery11.ExecSQL;:=ERROR;.IBT.RollbackRetaining;;END;.IBT.CommitRetaining;.IBTable1.Active:=FALSE;.IBTable1.Active:=TRUE;;.UREP_INS;

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

Dialogs, StdCtrls, DB, IBCustomDataSet, IBQuery, Buttons, IBTable, Grids,

DBGrids, Menus, ExtCtrls, DBCtrls, XPMan;

TREP_INS = class(TForm)

GroupBox1: TGroupBox;

Label7: TLabel;

Edit7: TEdit;

Label8: TLabel;

Edit8: TEdit;

Label9: TLabel;

Edit9: TEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit10: TEdit;

Button1: TButton;

BitBtn1: TBitBtn;

IBQuery1: TIBQuery;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

IBTable1: TIBTable;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

DataSource2: TDataSource;

IBTable2: TIBTable;

DataSource3: TDataSource;

IBQuery2: TIBQuery;

DataSource4: TDataSource;

IBTable1ID: TIntegerField;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

DBNavigator1: TDBNavigator;

IBTable1NUM: TIBStringField;

Label13: TLabel;

IBTable2NOMENCLAT: TIBStringField;

IBTable2DET_NAME: TIBStringField;

IBTable2SUMM: TIntegerField;

IBTable2AL: TIntegerField;

IBTable2CELL: TIBStringField;

IBTable2ID: TIntegerField;

IBTable2O_ID: TIntegerField;

XPManifest1: TXPManifest;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

IBQuery3: TIBQuery;

IBQuery4: TIBQuery;

IBQuery5: TIBQuery;

DBGrid2: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Edit9Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

REP_INS: TREP_INS;UBASE, UDETAL,