zczw.pas

2004090611144625767.rar 资源名称:通用工资管理

unit zczw;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  Tzczwb = class(TForm)
    pagecontrol1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    TabSheet3: TTabSheet;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Panel3: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zczwb: Tzczwb;

implementation

uses datamodule;

{$R *.DFM}

procedure Tzczwb.BitBtn1Click(Sender: TObject);
begin
bitbtn3.enabled:=true;
if pagecontrol1.activepage=tabsheet2 then  //职称及奖金
begin
datamodule1.zcsz.append;
edit2.text:='';
edit2.setfocus;
end;
if pagecontrol1.activepage=tabsheet1 then                                      //职务及奖金
begin
datamodule1.zwsz.append;
edit1.text:='';
edit1.setfocus;
end;
if pagecontrol1.activepage=tabsheet3 then   //工龄奖金
begin
datamodule1.gn.append;
edit5.text:='';
edit5.setfocus;
end;
end;

procedure Tzczwb.BitBtn3Click(Sender: TObject);
begin
if bitbtn3.enabled=false then
showmessage('请先按增加或修改才能输入内容')
else
begin
  bitbtn3.enabled:=false;
  if pagecontrol1.activepage=tabsheet1 then        //职务奖金
    begin
 with datamodule1.zwsz do
 begin
 try
 fieldbyname('a_zw').asstring:=edit1.text;
 fieldbyname('a_jj').asfloat:=strtofloat(edit3.text);
 post;
 except
 showmessage('不能正确设置，请确保输入数据的正确性');
 end;
 end;
 edit1.text:='';
 edit3.text:='';
    end;
    if pagecontrol1.activepage=tabsheet2 then                                          //职称奖金
    begin
 with datamodule1.zcsz do
 begin
 try
 fieldbyname('a_zc').asstring:=edit2.text;
 fieldbyname('a_jj').asfloat:=strtofloat(edit4.text);
 post;
 except
 showmessage('不能正确保存数据，请输入数据的正确性');
 end;
 end;
    edit2.text:='';
    edit4.text:='';
    end;
if pagecontrol1.activepage=tabsheet3 then   //工龄奖金
   begin
 with datamodule1.gn do
 begin
 try
 fieldbyname('a_gn').asinteger:=strtoint(edit5.text);
 fieldbyname('a_jj').asfloat:=strtofloat(edit6.text);
 post;
 except
 showmessage('不能正确输入数据，请确保输入数据的正确性');
 end;
 end;
  edit5.text:='';
  edit6.text:='';
  end;
end;
end;

procedure Tzczwb.BitBtn2Click(Sender: TObject);
begin
bitbtn3.enabled:=true;
if pagecontrol1.activepage=tabsheet1 then   //职务及奖金
begin
datamodule1.zwsz.Edit;
edit1.text:='';
edit3.text:='';
edit1.text:=datamodule1.zwsz.fieldbyname('a_zw').asstring;
edit3.text:=floattostr(datamodule1.zwsz.fieldbyname('a_jj').asfloat);
edit1.setfocus;
end;
if pagecontrol1.activepage=tabsheet2 then                                       //职称及奖金
begin
datamodule1.zcsz.edit;
edit2.text:=datamodule1.zcsz.fieldbyname('a_zc').asstring;
edit4.text:=floattostr(datamodule1.zcsz.fieldbyname('a_jj').asfloat);
edit2.setfocus;
end;
if pagecontrol1.activepage=tabsheet3 then
begin
datamodule1.gn.edit;
edit5.text:=inttostr(datamodule1.gn.fieldbyname('a_gn').asinteger);
edit6.text:=floattostr(datamodule1.gn.fieldbyname('a_jj').asfloat);
edit5.setfocus;
end;
end;
procedure Tzczwb.BitBtn4Click(Sender: TObject);
begin
if application.messagebox('确定要删除此记录?','程序执行确认',mb_yesno+mb_defbutton2+mb_iconstop+mb_applmodal)=idyes then
begin
if pagecontrol1.activepage=tabsheet1 then
datamodule1.zwsz.Delete
else
datamodule1.zcsz.delete;
end
else
showmessage('该记录未删除!');
end;

procedure Tzczwb.BitBtn5Click(Sender: TObject);
begin
self.close;
end;

procedure Tzczwb.FormCreate(Sender: TObject);
begin
bitbtn3.enabled:=false;
end;

procedure Tzczwb.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.DBGrid3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if inttostr(key)='13' then
bitbtn3.click;
   if inttostr(key)='107' then
   bitbtn1.click;
      if inttostr(key)='109' then
         bitbtn4.click;
            if inttostr(key)='69' then
             bitbtn2.click;
end;

procedure Tzczwb.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8]) then key:=#0;
end;

procedure Tzczwb.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','.',#8]) then key:=#0;
end;

procedure Tzczwb.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','.',#8]) then key:=#0;
end;

procedure Tzczwb.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9','.',#8]) then key:=#0;
end;

procedure Tzczwb.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := cllime;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;

procedure Tzczwb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.release;
end;

end.