?? xgsdyhfrm.pas
字號:
unit xgsdyhfrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Mask, DBCtrlsEh, ExtCtrls,db;
type
Txgsdyh = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
DBNumberEditEh1: TDBNumberEditEh;
DBNumberEditEh2: TDBNumberEditEh;
DBNumberEditEh3: TDBNumberEditEh;
ComboBox1: TComboBox;
Panel2: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
xgsdyh: Txgsdyh;
implementation
uses datafrm;
{$R *.dfm}
procedure Txgsdyh.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure Txgsdyh.FormActivate(Sender: TObject);
var
i0:integer;
begin
yfgldata.sdbz.First;
for i0:=1 to yfgldata.sdbz.RecordCount do
begin
xgsdyh.ComboBox1.Items.Add(yfgldata.sdbz.FieldByName('職級').AsString);
yfgldata.sdbz.Next;
end;
xgsdyh.Edit1.Text:=inttostr(yfgldata.sdyh.Fields[0].AsInteger);
xgsdyh.Edit2.Text:=yfgldata.sdyh.Fields[1].AsString;
xgsdyh.DBNumberEditEh1.Value:=yfgldata.sdyh.Fields[4].AsFloat;
xgsdyh.DBNumberEditEh2.Value:=yfgldata.sdyh.Fields[5].AsFloat;
xgsdyh.DBNumberEditEh3.Value:=yfgldata.sdyh.Fields[3].AsFloat;
yfgldata.sdbz.First;
end;
procedure Txgsdyh.ComboBox1Change(Sender: TObject);
begin
if xgsdyh.ComboBox1.Text<>'' then
begin
xgsdyh.DBNumberEditEh1.Value:=yfgldata.sdbz.Lookup('職級',xgsdyh.ComboBox1.Text,'用水補助');
xgsdyh.DBNumberEditEh2.Value:=yfgldata.sdbz.Lookup('職級',xgsdyh.ComboBox1.Text,'用電補助');
end;
end;
procedure Txgsdyh.SpeedButton7Click(Sender: TObject);
begin
if (xgsdyh.Edit2.Text<>'') and (xgsdyh.ComboBox1.Text<>'') then
begin
yfgldata.sdyh.Edit;
yfgldata.sdyh.Fields[1].AsString:=xgsdyh.Edit2.Text;
yfgldata.sdyh.Fields[2].AsString:=xgsdyh.ComboBox1.Text;
yfgldata.sdyh.Fields[3].AsFloat:=xgsdyh.DBNumberEditEh3.Value;
yfgldata.sdyh.Fields[4].AsFloat:=xgsdyh.DBNumberEditEh1.Value;
yfgldata.sdyh.Fields[5].AsFloat:=xgsdyh.DBNumberEditEh2.Value;
yfgldata.sdyh.Post;
close;
end
else
messagebox(xgsdyh.handle,'用戶名和職級不能為空。','營房工作管理系統(tǒng)',16);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -