?? gz_inunit.pas
字號:
unit GZ_InUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, DB, ADODB, Buttons;
type
TGZ_InForm = class(TForm)
GroupBox5: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
Panel1: TPanel;
Label8: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
BitBtn7: TBitBtn;
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
GZ_InForm: TGZ_InForm;
implementation
uses Login_Unit;
{$R *.dfm}
procedure TGZ_InForm.BitBtn6Click(Sender: TObject);
begin
close;
end;
procedure TGZ_InForm.BitBtn4Click(Sender: TObject);
begin
ADOTable1.Prior;
if self.ADOTable1.Bof then
BitBtn4.Enabled:=false;
BitBtn5.Enabled:=true;
end;
procedure TGZ_InForm.BitBtn5Click(Sender: TObject);
begin
ADOTable1.Next;
if self.ADOTable1.Eof then
BitBtn5.Enabled:=false;
BitBtn4.Enabled:=true;
end;
procedure TGZ_InForm.BitBtn1Click(Sender: TObject);
begin
BitBtn2.Enabled:=true;
self.DBEdit1.Clear;
self.DBEdit1.SetFocus;
self.DBEdit2.Clear;
self.DBEdit3.Clear;
self.DBEdit4.Clear;
self.DBEdit5.Clear;
self.DBEdit6.Clear;
self.DBEdit7.Clear;
self.DBEdit8.Clear;
self.DBEdit9.Clear;
self.DBEdit10.Clear;
self.DBEdit11.Clear;
self.DBEdit12.Clear;
self.ADOTable1.Append;
end;
procedure TGZ_InForm.BitBtn2Click(Sender: TObject);
begin
try
begin
self.ADOTable1.Post;
MessageDlg('保存成功!',mtInformation,[mbOk],0);
self.BitBtn2.Enabled:=false;
self.ADOTable1.Append;
self.DBEdit1.SetFocus;
self.DBEdit1.Clear;
self.DBEdit2.Clear;
end;
except
begin
if self.DBEdit1.Text='' then
MessageDlg('職工編號不能為空!',mtInformation,[mbOk],0)
else
MessageDlg('職工編號重復!',mtInformation,[mbOk],0);
self.DBEdit1.Clear;
self.DBEdit1.SetFocus;
self.DBEdit2.Clear;
end;
end;
end;
procedure TGZ_InForm.BitBtn3Click(Sender: TObject);
begin
try
begin
self.ADOTable1.Delete;
MessageDlg('刪除成功!',mtInformation,[mbOK],0);
end;
except
MessageDlg('刪除出錯!',mtInformation,[mbOK],0);
end;
end;
procedure TGZ_InForm.BitBtn7Click(Sender: TObject);
begin
Self.DBEdit12.Text:=Floattostr(strtoFloat(self.DBEdit3.Text)+strtoFloat(self.DBEdit4.Text)+strtoFloat(self.DBEdit5.Text)+strtoFloat(self.DBEdit6.Text)+strtoFloat(self.DBEdit7.Text)+strtoFloat(self.DBEdit8.Text)+strtoFloat(self.DBEdit9.Text)+strtoFloat(self.DBEdit10.Text)+strtoFloat(self.DBEdit11.Text));
//BitBtn2.Enabled:=true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -