?? cardbyhandleeach.pas
字號:
unit CardByHandleEach;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls, ComCtrls,DataMod,
DB, wwdbdatetimepicker, Mask, DBCtrls, ADODB,DateUtils;
type
TfCardByHandleEach = class(TfBaseChildForm)
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
Label4: TLabel;
ADOQuery1dDate: TDateTimeField;
ADOQuery1cWorkerNo: TStringField;
ADOQuery1cWorkerName: TStringField;
ADOQuery1cClassNo: TStringField;
ADOQuery1tIn1: TDateTimeField;
ADOQuery1tOut1: TDateTimeField;
ADOQuery1tIn2: TDateTimeField;
ADOQuery1tOut2: TDateTimeField;
ADOQuery1tIn3: TDateTimeField;
ADOQuery1tOut3: TDateTimeField;
ADOQuery1iLaterTime: TIntegerField;
ADOQuery1iLaterTimes: TIntegerField;
ADOQuery1iLeaveEarlyTime: TIntegerField;
ADOQuery1iLeaveEarlyTimes: TIntegerField;
ADOQuery1iOverTime: TIntegerField;
ADOQuery1cNote: TStringField;
ADOQuery1cMemo: TMemoField;
ADOQuery1lChecked: TBooleanField;
ADOQuery1cUser: TStringField;
ADOQuery1tUpdateTime: TDateTimeField;
ADOQuery1cAction: TStringField;
GroupBox1: TGroupBox;
Label5: TLabel;
Label6: TLabel;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
GroupBox2: TGroupBox;
Label7: TLabel;
Label8: TLabel;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
GroupBox3: TGroupBox;
Label9: TLabel;
Label10: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
Label11: TLabel;
Bevel2: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Bevel3: TBevel;
procedure DateTimePicker1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ADOQuery1BeforePost(DataSet: TDataSet);
procedure BitBtn2Click(Sender: TObject);
procedure DataSource1StateChange(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fCardByHandleEach: TfCardByHandleEach;
implementation
{$R *.dfm}
procedure TfCardByHandleEach.DateTimePicker1Change(Sender: TObject);
var
IsFond:Boolean;
begin
inherited;
AdoQuery1.Close;
AdoQuery1.Parameters.ParamByName('strDate').Value :=formatdateTime('yyyy/mm/dd',dateTimepicker1.date);
AdoQuery1.Parameters.ParamByName('WorkerNo').Value :=edit1.Text;
AdoQuery1.Open;
IsFond:=Not AdoQuery1.IsEmpty;
if (Sender=edit1) and (tEdit(Sender).Text<>'') and AdoQuery1.IsEmpty then begin
application.MessageBox(pchar('⊿Τт
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -