addgzb.pas

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

unit addgzb;

interface

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

type
  Taddgzb_Form = class(TForm)
    cmdok: TButton;
    cmdclose: TButton;
    Label1: TLabel;
    rq_DTP: TDateTimePicker;
    Query1: TQuery;
    Query2: TQuery;
    procedure cmdcloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addgzb_Form: Taddgzb_Form;

implementation

uses main;

{$R *.dfm}

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

procedure Taddgzb_Form.FormCreate(Sender: TObject);
begin
    rq_DTP.Date:=now;
end;

procedure Taddgzb_Form.cmdokClick(Sender: TObject);
var
    gzdm,gzmc,gzje,ygbh,gzbh,sqlstr:string;
begin
    gzbh:=formatdatetime('yyyymmdd',rq_DTP.DateTime);
    gzbh:=copy(gzbh,1,6);
    sqlstr:='select gzbh from gzb where(gzbh='''+gzbh+''')';
    with tquery.Create(nil) do
    begin
        try
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        Open;
        if recordcount > 0 then
        begin
            ShowMessage('该月工资表已经创建！');
            exit;
        end
        else
        begin
            sqlstr:='select bh,zwdm,zcdm from ygb order by bh';
            Query1.Close;
            Query1.SQL.Clear;
            Query1.SQL.Add(sqlstr);
            Query1.Open;
            Query1.First;
            while not Query1.Eof do
            begin
                ygbh:=Query1.fieldbyname('bh').AsString;
                sqlstr:='select * from gzdm order by gzdm';
                Query2.Close;
                Query2.SQL.Clear;
                Query2.SQL.Add(sqlstr);
                Query2.Open;
                Query2.First;
                while not Query2.Eof do
                begin
                    gzdm:=Query2.fieldbyname('gzdm').AsString;
                    gzmc:=Query2.fieldbyname('gzmc').AsString;
                    gzje:=Query2.fieldbyname('gzje').AsString;
                    sqlstr:='insert into gzb(gzbh,ygbh,gzdm,gzmc,gzje)values('''+gzbh;
                    sqlstr:=sqlstr+''','''+ygbh+''','''+gzdm+''','''+gzmc+''','''+gzje+''')';
                    Close;
                    SQL.Clear;
                    SQL.Add(sqlstr);
                    ExecSQL;
                    Query2.Next;
                end;
                Query1.Next;
            end;
            ShowMessage('成功添加该月工资');
        end;
        finally
        Free;
        end;
    end;
    Close;
end;

end.