empbonus.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit EmpBonus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseEditForm, ImgList, DB, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  ComCtrls, StdCtrls, Buttons, ADODB, Mask, DBCtrls, wwdblook;

type
  TfEmp_Bonus = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cSpan: TStringField;
    ADOQuery1fAmount: TFloatField;
    ADOQuery1tMemo: TStringField;
    ADOQuery1dInDate: TDateTimeField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label8: TLabel;
    DBEdit5: TDBEdit;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    ADOQuery2: TADOQuery;
    ADOQuery1cWorkerName: TStringField;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBLookupCombo2: TwwDBLookupCombo;
    Label10: TLabel;
    ADOQuery3: TADOQuery;
    DBEdit3: TDBEdit;
    ADOQuery1cKindDes: TStringField;
    ADOQuery1cKindID: TStringField;
    ADOQuery4: TADOQuery;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure btnSaveKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure wwDBLookupCombo1Exit(Sender: TObject);
    procedure wwDBLookupCombo2Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
     mySpan,mycKindID,mycKindDes:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fEmp_Bonus: TfEmp_Bonus;

implementation

uses DataMod, Mainform;

{$R *.dfm}

procedure TfEmp_Bonus.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  ADOQuery1.FieldByName('dInDate').AsDateTime:=date();
  ADOQuery1.FieldByName('CSpan').AsString:=mySpan;
  ADOQuery1.FieldByName('cKindID').AsString:=mycKindID;
  ADOQuery1.FieldByName('cKindDes').AsString:=mycKindDes;
end;

procedure TfEmp_Bonus.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then  btnSave.SetFocus;
end;

procedure TfEmp_Bonus.btnSaveKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then  btnNew.SetFocus;
end;

procedure TfEmp_Bonus.FormCreate(Sender: TObject);
begin
  inherited;
  //cobYear.ItemIndex :=cobYear.Items.IndexOf(formatdateTime('yyyy',date()));
  //cobMonth.ItemIndex :=cobMonth.Items.IndexOf(formatdateTime('mm',date()));
  if DataSource.DataSet.Active=False then DataSource.DataSet.Active:=True;
  Edit1.Enabled:=False;
  Edit2.Enabled:=False;
  ComboBox1.Enabled:=False;
end;

procedure TfEmp_Bonus.btnNewClick(Sender: TObject);
begin
  inherited;
  wwDBLookupCombo1.SetFocus;
end;

procedure TfEmp_Bonus.wwDBLookupCombo1Exit(Sender: TObject);
begin
  inherited;
  with ADOQuery4 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select cWorkerNo,cWorkerName From Workers ');
    SQL.Add(' where cWorkerNo='''+wwDBLookupCombo1.Text+'''');
    Open;
    if FieldByName('cWorkerName').AsString='' then
    begin
      Application.MessageBox('