unitwage.pas

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

unit UnitWage;

interface

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

type
  TfUnitWage = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    ADOQuery1computerID: TIntegerField;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1dDate: TDateTimeField;
    ADOQuery1fAmount: TFloatField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOTable1: TADOTable;
    ADOQuery1WorkerName: TStringField;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    ADOQuery2: TADOQuery;
    Panel3: TPanel;
    Label6: TLabel;
    cobYear: TComboBox;
    cobMonth: TComboBox;
    Label7: TLabel;
    ADOQuery1tMemo: TMemoField;
    Label8: TLabel;
    DBMemo1: TDBMemo;
    procedure FormCreate(Sender: TObject);
    procedure cobYearChange(Sender: TObject);
    procedure cobMonthChange(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
     procedure ChangeYearMonth;
  public
    { Public declarations }
  end;

var
  fUnitWage: TfUnitWage;

implementation

{$R *.dfm}

procedure TfUnitWage.ChangeYearMonth;
begin
      AdoQuery1.Close;
      AdoQuery1.Parameters.ParamByName('IYear').Value :=strToint(cobYear.Text );
      AdoQuery1.Parameters.ParamByName('iMOnth').Value :=strToint(cobMonth.Text );
      AdoQuery1.Open;
end;

procedure TfUnitWage.FormCreate(Sender: TObject);
begin
  inherited;
  cobYear.ItemIndex :=cobYear.Items.IndexOf(formatdateTime('yyyy',date()));
  cobMonth.ItemIndex :=cobMonth.Items.IndexOf(formatdateTime('mm',date()));
  ChangeYearMonth;
  self.FirstFocusControl :=wwDBLookupCombo1;
end;

procedure TfUnitWage.cobYearChange(Sender: TObject);
begin
  inherited;
  ChangeYearMonth  ;
end;

procedure TfUnitWage.cobMonthChange(Sender: TObject);
begin
  inherited;
  ChangeYearMonth  ;
end;

procedure TfUnitWage.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  DataSet.FieldByName('dDate').AsDateTime :=strTodate(formatdateTime('yyyy/mm/dd',fdatamod.GetCurrentTime));
end;

end.