gztj.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit gztj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB, DBTables;

type
  Tgztj_Form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    bmdm_CBox: TComboBox;
    cmdok: TButton;
    cmdclose: TButton;
    rq_DTP: TDateTimePicker;
    zwgz_LEdit: TLabeledEdit;
    zcgz_LEdit: TLabeledEdit;
    qtgz_LEdit: TLabeledEdit;
    hjgz_LEdit: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gztj_Form: Tgztj_Form;

implementation

uses main;

{$R *.dfm}

procedure Tgztj_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N43.Enabled:=true;
end;

procedure Tgztj_Form.FormCreate(Sender: TObject);
begin
    rq_DTP.DateTime:=now;
    with TQuery.Create(nil) do
    try
    Close;
    SQL.Clear;
    SQL.Add('select * from bmdm order by bmdm');
    Open;
    First;
    while not Eof do
    begin
        bmdm_cbox.Items.Add(fieldbyname('bmmc').AsString);
        Next;
    end;
    bmdm_CBox.ItemIndex:=0;
    finally
    Free;
    end;
end;

procedure Tgztj_Form.cmdokClick(Sender: TObject);
var
    gzbh,bmdm,sqlstr:string;
begin
    gzbh:=formatdatetime('yyyymmdd',rq_DTP.DateTime);
    gzbh:=copy(gzbh,1,6);
    bmdm:=inttostr(bmdm_CBox.ItemIndex);
    sqlstr:='select isnull(sum(a.gzje),0) as je from gzb a,ygb b where(a.ygbh=b.bh)and(a.gzbh='''+gzbh+''')and(b.bmdm='''+bmdm+''')';
    with TQuery.Create(nil) do
    try
    Close;
    SQL.Clear;
    SQL.Add(sqlstr);
    Open;
    if fieldbyname('je').AsFloat > 0 then
    begin
        qtgz_LEdit.Text:=fieldbyname('je').AsString;
        sqlstr:='select isnull(sum(b.zwgz),0) as zwje from gzb a,zwdm b,ygb c ';
        sqlstr:=sqlstr+' where(a.ygbh=c.bh)and(c.zwdm=b.zwdm)and(c.bmdm='''+bmdm+''')and(a.gzbh='''+gzbh+''')';
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        zwgz_LEdit.Text:=fieldbyname('zwje').AsString;
        sqlstr:='select isnull(sum(b.zcgz),0) as zcje from gzb a,zcdm b,ygb c ';
        sqlstr:=sqlstr+' where(a.ygbh=c.bh)and(c.zcdm=b.zcdm)and(c.bmdm='''+bmdm+''')and(a.gzbh='''+gzbh+''')';
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        zcgz_LEdit.Text:=fieldbyname('zcje').AsString;
        hjgz_LEdit.Text:=floattostr(strtofloat(qtgz_LEdit.Text)+strtofloat(zwgz_LEdit.Text)+strtofloat(zcgz_LEdit.Text));
    end
    else
    begin
        ShowMessage('该月工资还没有创建！');
        exit;
    end;
    finally
    Free;
    end;
end;

procedure Tgztj_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

end.