leave.pas

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

unit Leave;

interface

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

type
  TfLeave = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DBMemo1: TDBMemo;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    ADOTable1: TADOTable;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    wwDBSpinEdit1: TwwDBSpinEdit;
    ADOQuery1cWorkerNo: TStringField;
    ADOQuery1cWorkerName: TStringField;
    ADOQuery1dStartDate: TDateTimeField;
    ADOQuery1dEndDate: TDateTimeField;
    ADOQuery1cLeaveTypeNo: TStringField;
    ADOQuery1bPay: TBooleanField;
    ADOQuery1fPayPercent: TFloatField;
    ADOQuery1mMemo: TMemoField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdatetime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    ADOQuery1LeaveTypeName: TStringField;
    ADOQuery1Pay: TStringField;
    DBCheckBox1: TDBCheckBox;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label5: TLabel;
    ADOQuery2: TADOQuery;
    Panel3: TPanel;
    Label7: TLabel;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    CheckBox2: TCheckBox;
    Label10: TLabel;
    DateTimePicker2: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure wwDBLookupCombo1Exit(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fLeave: TfLeave;

implementation

{$R *.dfm}

procedure TfLeave.FormCreate(Sender: TObject);
begin
  inherited;
  self.FirstFocusControl :=dbedit1;
  fdatamod.ListDepartMent(combobox1.Items);
  if combobox1.Items.Count >0 then
     combobox1.ItemIndex :=0;
end;

procedure TfLeave.DBEdit1Exit(Sender: TObject);
var
   AdoQue:TAdoQuery;
begin
  inherited;
  if dbedit1.Text<>'' then begin
     AdoQue:=TAdoQuery.Create(self);
     With AdoQue do
     begin
         Connection :=fdatamod.AdoCon ;
         SQL.Add('Select cWorkerName From Workers Where lLeaved=0 and cWorkerNo='''+Dbedit1.Text +'''');
         Open;
         if Isempty then  begin
            application.MessageBox('⊿Τт