Geum.ru

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

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

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

UDM, UINS_DET, UMain, UREPORT, USET;

{$R *.dfm}TREP_INS.Button1Click(Sender: TObject);

//BASE:=TBASE.Create(SELF);.IBTable1.Active:=TRUE;.IBQuery1.Active:=TRUE;.IBTable2.Active:=TRUE;.BitBtn1.Enabled:=FALSE;.BitBtn2.Enabled:=FALSE;.BitBtn3.Enabled:=FALSE;.BitBtn4.Enabled:=FALSE;.BitBtn5.Enabled:=FALSE;.BitBtn6.Enabled:=FALSE;BASE.BitBtn8.Visible:=TRUE;.BitBtn7.Visible:=FALSE;.Tag:=STRTOINT(REP_INS.Edit9.TEXT);.ShowModal;;TREP_INS.Edit9Change(Sender: TObject);

//IF DETAL.IBTable1REMAINS.Value<STRTOINT(REP_INS.Edit9.Text);;TREP_INS.BitBtn1Click(Sender: TObject);_INS.GroupBox2.Enabled:=TRUE;_INS.GroupBox1.Enabled:=FALSE;;TREP_INS.BitBtn2Click(Sender: TObject);_INS.IBQuery1.Params.ParamByName(NUM).Value:=EDIT1.Text;_INS.IBQuery1.Params.ParamByName(OBJ).Value:=EDIT2.Text;_INS.IBQuery1.Params.ParamByName(ZAKAZ).Value:=EDIT3.Text;_INS.IBQuery1.Params.ParamByName(AUTOR).Value:=EDIT4.Text;_INS.IBQuery1.Params.ParamByName(PICKER).Value:=EDIT5.Text;_INS.IBQuery1.Params.ParamByName(Y).Value:=EDIT6.Text;_INS.IBQuery1.ExecSQL;

EXCEPT(Не удалось создать ведомость!Попробуйте еще раз!);

dm.IBT.RollbackRetaining;exit;;.IBT.CommitRetaining;_INS.GroupBox1.Enabled:=TRUE;_INS.GroupBox2.Enabled:=FALSE;_INS.IBTable1.Active:=TRUE;_INS.IBTable2.Active:=TRUE;.Clear;EDIT2.Clear;EDIT3.Clear;EDIT4.Clear;EDIT5.Clear;EDIT6.Clear;;TREP_INS.N3Click(Sender: TObject);_INS.GroupBox1.Enabled:=TRUE;_INS.GroupBox2.Enabled:=TRUE;_INS.IBTable1.Open;;TREP_INS.BitBtn3Click(Sender: TObject);_INS.IBQuery2.Params.ParamByName(O_ID).Value:=REP_INS.IBTable1ID.Value;_INS.IBQuery2.Params.ParamByName(SUMM).Value:=STRTOINT(REP_INS.Edit9.Text);_INS.IBQuery2.Params.ParamByName(AL).Value:=STRTOINT(REP_INS.Label11.Caption);_INS.IBQuery2.Params.ParamByName(NOMENCLAT).Value:=REP_INS.Edit7.Text;_INS.IBQuery2.Params.ParamByName(DET_NAME).Value:=REP_INS.Edit8.Text;_INS.IBQuery2.Params.ParamByName(CELL).Value:=REP_INS.Edit10.Text;_INS.IBQuery2.ExecSQL;

EXCEPT(Не удалось добавить данные!попробуйте еще раз!);

dm.IBT.RollbackRetaining;exit;;.IBT.CommitRetaining;_INS.IBTable2.Active:=FALSE;_INS.IBTable2.Active:=TRUE;.Text:=0;.Clear;EDIT8.Clear;EDIT10.Clear;label11.Caption:=0;;TREP_INS.N4Click(Sender: TObject);_INS.Close;_ins.IBTable1.Close;_ins.IBTable2.Close;(Попробуйте еще раз);;;TREP_INS.BitBtn4Click(Sender: TObject);

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

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

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

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

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;_ins.IBTable1.Close;_ins.IBTable1.Open;_ins.IBTable2.Close;_ins.IBTable2.Open;

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

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

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

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

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

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;_INS.IBTable2.Close;_INS.IBTable2.Open;

end;;.UOPROG;

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

Dialogs, ExtCtrls, StdCtrls, Buttons, XPMan, jpeg;

To_prog = class(TForm)

BitBtn1: TBitBtn;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

XPManifest1: TXPManifest;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

o_prog: To_prog;

{$R *.dfm}To_prog.BitBtn1Click(Sender: TObject);_prog.Close;;.UDM;

SysUtils, Classes, IBDatabase, DB;

TDM = class(TDataModule)

IBD: TIBDatabase;

IBT: TIBTransaction;

private

{ Private declarations }

public

{ Public declarations }

end;

DM: TDM;UMain, UBASE, UDETAL, UINS_DET, UREP_INS, UREPORT, USET, UPR, Upoisk;

{$R *.dfm}.UREPORT;

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

Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Mask, DB, IBTable,

IBCustomDataSet, IBQuery, ComCtrls, XPMan, jpeg, QuickRpt, QRCtrls,

Buttons;

TFREP = class(TForm)

PageControl1: TPageControl;

IBQuery1: TIBQuery;

DataSource1: TDataSource;

XPManifest1: TXPManifest;

IBTable1: TIBTable;

IBTable1ID: TIntegerField;

IBTable1O_ID: TIntegerField;

IBTable1NOMENCLAT: TIBStringField;

IBTable1DET_NAME: TIBStringField;

IBTable1SUMM: TIntegerField;

IBTable1AL: TIntegerField;

IBTable1CELL: TIBStringField;

TabSheet1: TTabSheet;

DBText1: TDBText;

DBText2: TDBText;

DBText3: TDBText;

DBText4: TDBText;

DBText5: TDBText;

Label6: TLabel;

Label5: TLabel;

Label4: TLabel;

Label3: TLabel;

Label2: TLabel;

Label1: TLabel;

DBEdit1: TDBEdit;

DBNavigator1: TDBNavigator;

Button1: TButton;

DBGrid1: TDBGrid;

TabSheet2: TTabSheet;

DataSource2: TDataSource;

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRSubDetail1: TQRSubDetail;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRLabel5: TQRLabel;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRLabel6: TQRLabel;

QRDBText5: TQRDBText;

QRLabel7: TQRLabel;

QRDBText6: TQRDBText;

QRSysData1: TQRSysData;

QRLabel8: TQRLabel;

QRShape1: TQRShape;

QRShape2: TQRShape;

QRShape3: TQRShape;

QRShape4: TQRShape;

QRShape5: TQRShape;

QRShape6: TQRShape;

QRShape7: TQRShape;

QRShape8: TQRShape;

QRShape9: TQRShape;

QRShape10: TQRShape;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRDBText11: TQRDBText;

BitBtn1: TBitBtn;

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

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

FREP: TFREP;UBASE, UDETAL, UDM, UINS_DET, UMain, USET, UREP_INS, UPR;

{$R *.dfm}TFREP.FormClose(Sender: TObject; var Action: TCloseAction);.IBQuery1.Close;;TFREP.Button1Click(Sender: TObject);.QuickRep1.Preview;;.USET;

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

Dialogs, StdCtrls, XPMan, Buttons, ExtCtrls;

Tsett = class(TForm)

XPManifest1: TXPManifest;

Memo1: TMemo;

BitBtn1: TBitBtn;

Memo2: TMemo;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

sett: Tsett;UDM;

{$R *.dfm}Tsett.BitBtn1Click(Sender: TObject);fileexists(DB_path.set) then(DB_path.set);.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+\DB_path.set);fileexists(server.set) then(server.set);.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+\server.set);;Tsett.FormCreate(Sender: TObject);.Lines.Clear;fileexists(DB_path.set) then.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+\DB_path.set);;.Lines.Clear;fileexists(server.set) then.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+\server.set);;;.UPR;

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

TREPOTRFORM = class(TForm)

QuickRep1: TQuickRep;

QRSubDetail1: TQRSubDetail;

QRDBText1: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText2: TQRDBText;

QRLabel4: TQRLabel;

QRDBText3: TQRDBText;

QRLabel5: TQRLabel;

QRDBText4: TQRDBText;

QRLabel6: TQRLabel;

QRDBText5: TQRDBText;

QRLabel7: TQRLabel;

QRDBText6: TQRDBText;

QRLabel8: TQRLabel;

QRDBText7: TQRDBText;

QRSysData1: TQRSysData;

QRLabel9: TQRLabel;

QRSubDetail2: TQRSubDetail;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRDBText11: TQRDBText;

QRDBText12: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

REPOTRFORM: TREPOTRFORM;UBASE, UDETAL, UDM, UINS_DET, UMain, Upoisk, UREP_INS, UREPORT;

{$R *.dfm}.UAUTOR;

Windows, Messages, SysUti