xgsdyhfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 98 行

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,'用户名和职级不能为空。','营房工作管理系统',16);
end;

end.