cssjdateunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit CssjDateunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Buttons, ComCtrls, ExtCtrls, lmdclass, lmdformA;

type
  TCssjDate = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label3: TLabel;
    Bevel1: TBevel;
    LMDForm1: TLMDForm;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CssjDate: TCssjDate;

implementation

uses PassWordUnit, DataTUnit, gzdata;


{$R *.DFM}

procedure TCssjDate.FormShow(Sender: TObject);
begin
   maskedit1.Text:=password.MaskEdit1.Text;
   edit4.Text:=inttostr(strtoint(password.Edit4.text));
   maskedit1.SetFocus;
   label1.Caption:='请选择产生工资月份';
   label1.Update;
end;

procedure TCssjDate.BitBtn1Click(Sender: TObject);
   var ddd,ts,zh:string;
begin
  datat.Table1.Open;
  datat.Table4.Open;
  data.Query1.DisableControls;
  datat.table1.DisableControls;
  datat.Table4.DisableControls;
  try
  ddd:='';
  ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
  data.Query1.Close;

   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
   data.Query1.Open;

if data.Query1.IsEmpty then
// if (data.Query1.fields[0].asfloat=0) and (data.Query1.fields[0].asfloat=0) then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,进行吗?';
   IF  (application.messagebox(PChar(ts),'提示框',mb_okcancel+mb_defbutton1+mb_iconquestion)
    =idok) then
    begin
    screen.cursor:=crhourglass;
          datat.table4.Open;
          datat.table4.First;
          datat.table1.Open;
          datat.table1.DisableControls;
          datat.Table4.DisableControls;
       while not(datat.table4.eof)  do
           begin
           zh:=datat.table4.FieldByName('rysx').AsString;
           if (zh='在职') or (zh='停薪') then
               begin
                  datat.table1.Append;
                  datat.table1.Edit;

                  datat.Table1.FieldByName('code').AsString:=datat.Table4.FieldByName('code').AsString;
                  datat.Table1.FieldByName('name').AsString:=datat.Table4.FieldByName('name').AsString;
                  datat.Table1.FieldByName('xmdm').AsString:=datat.Table4.FieldByName('xmdm').AsString;
                  datat.Table1.FieldByName('gjm').AsString:=datat.Table4.FieldByName('gjm').AsString;
                  datat.Table1.FieldByName('rysx').AsString:=datat.Table4.FieldByName('rysx').AsString;
                  datat.Table1.FieldByName('zhichenglb').AsString:=datat.Table4.FieldByName('zhichenglb').AsString;
                  datat.Table1.FieldByName('bmno').AsString:=datat.Table4.FieldByName('bmno').AsString;
                  datat.Table1.FieldByName('jgks').AsString:=datat.Table4.FieldByName('jgks').AsString;
                  datat.Table1.FieldByName('sex').AsString:=datat.Table4.FieldByName('sex').AsString;
                  datat.Table1.FieldByName('tj').AsString:=datat.Table4.FieldByName('tj').AsString;

                  datat.Table1.FieldByName('jb_jc').AsString:=datat.Table4.FieldByName('jb_jc').AsString;
                  datat.Table1.FieldByName('jb_qt').AsString:=datat.Table4.FieldByName('jb_qt').AsString;

                  datat.Table1.FieldByName('bz_gw').AsString:=datat.Table4.FieldByName('bz_gw').AsString;
                  datat.Table1.FieldByName('bz_jn').AsString:=datat.Table4.FieldByName('bz_jn').AsString;
                  datat.Table1.FieldByName('jt_gt').AsString:=datat.Table4.FieldByName('jt_gt').AsString;
                  datat.Table1.FieldByName('jt_zr').AsString:=datat.Table4.FieldByName('jt_zr').AsString;
                  datat.Table1.FieldByName('jt_jg').AsString:=datat.Table4.FieldByName('jt_jg').AsString;
                  datat.Table1.FieldByName('jt_st').AsString:=datat.Table4.FieldByName('jt_st').AsString;
                  datat.Table1.FieldByName('jt_kl').AsString:=datat.Table4.FieldByName('jt_kl').AsString;
                  datat.Table1.FieldByName('jt_jh').AsString:=datat.Table4.FieldByName('jt_jh').AsString;
                  datat.Table1.FieldByName('jt_gat').AsString:=datat.Table4.FieldByName('jt_gat').AsString;
                  datat.Table1.FieldByName('jt_7x').AsString:=datat.Table4.FieldByName('jt_7x').AsString;
                  datat.Table1.FieldByName('jt_ly').AsString:=datat.Table4.FieldByName('jt_ly').AsString;
                  datat.Table1.FieldByName('jt_lc').AsString:=datat.Table4.FieldByName('jt_lc').AsString;
                  datat.Table1.FieldByName('jt_lj').AsString:=datat.Table4.FieldByName('jt_lj').AsString;
                  datat.Table1.FieldByName('jt_b9').AsString:=datat.Table4.FieldByName('jt_b9').AsString;
                  datat.Table1.FieldByName('jt_hz').AsString:=datat.Table4.FieldByName('jt_hz').AsString;
                  datat.Table1.FieldByName('jt_ft').AsString:=datat.Table4.FieldByName('jt_ft').AsString;
                  datat.Table1.FieldByName('jt_qt').AsString:=datat.Table4.FieldByName('jt_qt').AsString;

                  datat.Table1.FieldByName('fg_bj').AsString:=datat.Table4.FieldByName('fg_bj').AsString;

                  datat.Table1.FieldByName('kk_yl').AsString:=datat.Table4.FieldByName('kk_yl').AsString;
                  datat.Table1.FieldByName('kk_gj').AsString:=datat.Table4.FieldByName('kk_gj').AsString;

                  datat.Table1.FieldByName('kk_qt1').AsString:=datat.Table4.FieldByName('kk_qt1').AsString;
                  datat.Table1.FieldByName('kk_qt2').AsString:=datat.Table4.FieldByName('kk_qt2').AsString;

                  datat.table1.FieldByName('riqi').AsString:=ddd;

                {  for k:=0 to datat.table4.FieldCount-1 do
                    begin
                         datat.table1.Fields[k].assign(datat.table4.Fields[k]);
                         datat.table1.FieldByName('riqi').AsString:=ddd;
                    end;}
                  datat.table1.Post;
                  end;//pandan end
               label1.Caption:=datat.Table4.FieldByName('Name').AsString+'正在转换.....';
               label1.Update;
               datat.table4.Next;
            end;//while end
       end;//if ok end;
   end;

 if not(data.Query1.IsEmpty) then
   begin
       ts:='';
       ts:=ddd+'月 已有 <纪录>'+floattostr(data.Query1.RecordCount)+'个'+',请不要进行!';
       application.messagebox(pchar(ts),'消息框',mb_ok+mb_iconstop);
       abort;
   end;
   finally
  // label1.Caption:='转换完毕,请退出!!!';
   data.Query1.EnableControls;
   datat.Table1.EnableControls;
   datat.Table4.EnableControls;
   screen.cursor:=crdefault;
   label1.Caption:='请选择产生工资月份';
   end;
   data.Query1.EnableControls;
   datat.Table1.EnableControls;
   datat.Table4.EnableControls;
 //  application.MessageBox('数据已产生完毕，请退出！！！','提示',+mb_ok+mb_iconinformation);

end;
procedure TCssjDate.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TCssjDate.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  datat.Table1.Close;
  datat.Table4.Close;
end;

procedure TCssjDate.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;



end.