recunit.pas

工资管理系统

unit RecUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, StdCtrls, ComCtrls, Mask, DBCtrls,db, Grids, DBGrids,
  RXDBCtrl, GDBGrid, IDMJump;

type
  TRecForm = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    Panel3: TPanel;
    DBJump1: TDBJump;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label41: TLabel;
    DBComboBox5: TDBComboBox;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure GDBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2Exit(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
    procedure DBComboBox3Exit(Sender: TObject);
    procedure DBComboBox5Exit(Sender: TObject);
    procedure DBEdit4Exit(Sender: TObject);
    procedure DBComboBox4Exit(Sender: TObject);
    procedure DBEdit24Exit(Sender: TObject);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RecForm: TRecForm;

implementation

uses NoInputUnit, DataTUnit,gethzpy,delrecunit,bdeutils, AddUnit;

{$R *.DFM}

procedure TRecForm.SpeedButton5Click(Sender: TObject);
begin
  close;
end;


procedure TRecForm.SpeedButton1Click(Sender: TObject);
begin
 if addform.ShowModal=mrok then
   begin
   case addform.RadioGroup1.ItemIndex of
   0:begin
        datat.table4.insert;
     end;
   1:begin
         datat.table4.Next;
         datat.table4.insert;
     end;
   2:begin
      //   datat.table4.Append;
     end;
   end;
   dbedit1.SetFocus;
   dbedit1.Text:='00000';
  end;
//recform.Caption:='记录管理  纪录数: '+IntToStr(datat.Table4.RecordCount)+'人';
end;

procedure TRecForm.SpeedButton2Click(Sender: TObject);
var namea:string;
begin
if delrecform=nil then
Application.createform(Tdelrecform,delrecform);
 if delrecform.ShowModal=mrok then
 begin
    with datat.table4 do
      begin
            if not active then Open;
            namea:=fieldbyname('name').asstring;
        case delrecform.RadioGroup1.ItemIndex of
            0:
            begin
               edit;
               if messagedlg('你确定这条纪录-->'+#13+#10+'姓名:  '+namea+#13+#10+'退休吗?定以为退休后此人不再参与每月数据计算',mtconfirmation,
               [mbyes,mbno],0)=mryes then FieldByName('rysx').AsString:='退休';
               post;
            end;
             1:
            begin
               edit;
               if messagedlg('你确定这条纪录-->'+#13+#10+'姓名:  '+namea+#13+#10+'定以为停薪吗?定义为退休后此人各项数据清零',mtconfirmation,
               [mbyes,mbno],0)=mryes then FieldByName('rysx').AsString:='停薪';
               post;
            end;
             2:
            begin
               edit;
               if messagedlg('你确定这条纪录-->'+#13+#10+'姓名:  '+namea+#13+#10+'定义为调出吗?,定以为调出后此人各项数仍存在,为以后计算台帐做基数.',mtconfirmation,
               [mbyes,mbno],0)=mryes then FieldByName('rysx').AsString:='调出';
               post;
            end;
             3:
            begin
               edit;
               if messagedlg('你确定这条纪录-->'+#13+#10+'姓名:  '+namea+#13+#10+'定以为其他退休吗?',mtconfirmation,
               [mbyes,mbno],0)=mryes then FieldByName('rysx').AsString:='其他';
               post;
            end;
             4:
            begin
               if messagedlg('你确定这条纪录-->'+#13+#10+'姓名:  '+namea+#13+#10+'彻底删除吗?,删除后此记录将不可能恢复,台帐数也没有.',mtconfirmation,
               [mbyes,mbno],0)=mryes then
               begin
                 delete;
                 datat.Table4.Close;
                  datat.table4.Open;
                 packtable(datat.table4);
                end;
            end;
        end;
       end;
  end;
   datat.table4.Open;
end;

procedure TRecForm.SpeedButton3Click(Sender: TObject);
begin
  with datat.table4 do
     begin
     if not active then open;
     edit;
     post;
     //edit;
     end;
end;

procedure TRecForm.SpeedButton4Click(Sender: TObject);
  var
    i:integer;
    sy:string;
//    mm:string;
begin
 if noinput=nil then
 Application.CreateForm(Tnoinput,noinput);
 if noinput.showmodal=mrok then
 begin
      IF (LENGTH(noinput.eDIT1.TEXT)=0) or (length(noinput.edit1.text)>5) THEN
         begin
            application.MessageBox('没有输入有效的字段值,请重输!!!','提示',mb_ok+mb_iconinformation);
//            noinput.edit1.SetFocus;
          end
     else
     with datat.Table4 do
       begin
         open;
         sy:=noinput.edit1.text;

          if pchar(sy)<char('A') then
        begin
         for i:=1 to (5-Length(sy)) do
         begin
         sy:='0'+sy;
         end;

          if not(Locate('code',sy,[])) then
          begin
              application.MessageBox('不存在这条纪录CODE','提示',mb_ok+mb_iconinformation);
              dbedit1.setfocus;
              first;
              abort;
           end
         end
          else
          begin
           if not(Locate('xmdm',sy,[])) then
           begin
              application.MessageBox('不存在这条纪录XMDM','提示',mb_ok+mb_iconinformation);
              dbedit1.setfocus;
              first;
              abort;
            end;
         end;
       end;
       end;
 end;

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