holidayset.~pas

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

unit HolidaySet;

interface

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

type
  TfHolidaySet = class(TfBaseEditForm)
    ADOQuery1: TADOQuery;
    ADOQuery1dStartDate: TDateTimeField;
    ADOQuery1dEndDate: TDateTimeField;
    ADOQuery1cHolidayName: TStringField;
    ADOQuery1mMemo: TMemoField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdatetime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1cHolidayClsID: TStringField;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    procedure wwDBDateTimePicker1Exit(Sender: TObject);
    procedure wwDBDateTimePicker2Exit(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label7MouseLeave(Sender: TObject);
    procedure ADOQuery1BeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fHolidaySet: TfHolidaySet;

implementation

uses WorkersSelect;

{$R *.dfm}

procedure TfHolidaySet.wwDBDateTimePicker1Exit(Sender: TObject);
begin
  inherited;
  if AdoQuery1.FieldByName('dStartDate').AsDateTime>AdoQuery1.FieldByName('dEndDate').AsDateTime then
     AdoQuery1.FieldByName('dEndDate').Value :=AdoQuery1.FieldByName('dStartDate').Value
end;

procedure TfHolidaySet.wwDBDateTimePicker2Exit(Sender: TObject);
begin
  inherited;
   if AdoQuery1.FieldByName('dStartDate').AsDateTime>AdoQuery1.FieldByName('dEndDate').AsDateTime then
     AdoQuery1.FieldByName('dStartDate').Value :=AdoQuery1.FieldByName('dEndDate').Value
end;

procedure TfHolidaySet.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  AdoQuery1.FieldByName('cHolidayClsID').AsString :=  CreateClassID();
 end;

procedure TfHolidaySet.FormCreate(Sender: TObject);
begin
  inherited;
  self.FirstFocusControl :=wwdbdatetimepicker1;
end;



procedure TfHolidaySet.Label7Click(Sender: TObject);
var
  I:Integer;
begin
  if Not AdoQuery2.Active then
      AdoQuery2.Open;
  if AdoQuery1.IsEmpty then Abort;
  fWorkersSelect:=tfWorkersSelect.Create(self);
  fworkersSelect.DateSetWorkers:=AdoQuery2;
  fWorkersSelect.ShowModal;
  if fWorkersSelect.ModalResult=mrOk then begin
        With TAdoQuery.Create(self) do begin
             Connection:=fdatamod.AdoCon ;
             Sql.Add('Delete From HolidayDetail Where cHolidayClsID='''+AdoQuery1.FieldbyName('cHolidayClsID').AsString+'''' );
             ExecSql;
             for I:=0 to fWorkersSelect.ListBox1.Items.Count -1 do
             Begin
                   Sql.Clear ;
                   Sql.Add('Insert HolidayDetail(cHolidayClsID,cWorkerNo) Values('''+AdoQuery1.FieldbyName('cHolidayClsID').AsString+''','''+TItem(fWorkersSelect.ListBox1.Items.Objects[i]).ItemID+''')'  );
                   ExecSql;
             end;
        end;
        AdoQuery2.Requery; 
  end;
  fWorkersSelect.free;
end;

procedure TfHolidaySet.Label7MouseEnter(Sender: TObject);
begin
  inherited;
  Label7.font.color :=clBlue;
  Label7.Font.Style:=[fsBold] ;
end;

procedure TfHolidaySet.Label7MouseLeave(Sender: TObject);
begin
  inherited;
  Label7.Font.Color :=clBlack;
  Label7.Font.Style:=[] ;
end;

procedure TfHolidaySet.ADOQuery1BeforeDelete(DataSet: TDataSet);
begin
  inherited;
 if Not AdoQuery2.IsEmpty then
  begin
      application.MessageBox('癸ぃ癬