?? sys910_03.pas.svn-base
字號:
unit Sys910_03;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, wwdbedit, DBCtrls, DB;
type
TSys910_03Form = class(TForm)
lblType: TLabel;
cbType: TComboBox;
lblTime: TLabel;
cbTime: TComboBox;
Bevel1: TBevel;
bbtnOk: TBitBtn;
bbtnExit: TBitBtn;
edtTime: TwwDBEdit;
lblUser: TLabel;
edtUser: TDBEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cbTypeChange(Sender: TObject);
procedure bbtnOkClick(Sender: TObject);
procedure bbtnExitClick(Sender: TObject);
private
ADataSet:TDataSet;
AWeek:array[0..6] of string;
AMonth:array[0..28] of string;
procedure SetInterface;
{ Private declarations }
public
procedure OpenData(AUser:String);
{ Public declarations }
end;
var
Sys910_03Form: TSys910_03Form;
implementation
uses SYSDATA, CommFun;
{$R *.dfm}
procedure TSys910_03Form.OpenData(AUser:String);
begin
ADataSet:=edtUser.DataSource.DataSet;
cbType.ItemIndex:=ADataSet.FieldByName('FType').Value;
cbTypeChange(cbType);
cbType.ItemIndex:=ADataSet.FieldByName('FType').Value;
case cbType.ItemIndex of
0:edtTime.Text:='';
1:edtTime.Text:=TimeToString(ADataSet.FieldByName('FTime').Value);
2:cbTime.ItemIndex:=ADataSet.FieldByName('FTime').Value;
3:cbTime.ItemIndex:=ADataSet.FieldByName('FTime').Value;
end;
end;
procedure TSys910_03Form.SetInterface;
begin
cbType.Clear;
cbType.Items.Add('即時');
cbType.Items.Add('每天');
cbType.Items.Add('每周');
cbType.Items.Add('每月');
cbType.ItemIndex:=0;
AWeek[0]:='星期日';;
AWeek[1]:='星期一';;
AWeek[2]:='星期二';;
AWeek[3]:='星期三';;
AWeek[4]:='星期四';;
AWeek[5]:='星期五';;
AWeek[6]:='星期六';;
AMonth[0]:='月末';
AMonth[1]:='01日';
AMonth[2]:='02日';
AMonth[3]:='03日';
AMonth[4]:='04日';
AMonth[5]:='05日';
AMonth[6]:='06日';
AMonth[7]:='07日';
AMonth[8]:='08日';
AMonth[9]:='09日';
AMonth[10]:='10日';
AMonth[11]:='11日';
AMonth[12]:='12日';
AMonth[13]:='13日';
AMonth[14]:='14日';
AMonth[15]:='15日';
AMonth[16]:='16日';
AMonth[17]:='17日';
AMonth[18]:='18日';
AMonth[19]:='19日';
AMonth[20]:='20日';
AMonth[21]:='21日';
AMonth[22]:='22日';
AMonth[23]:='23日';
AMonth[24]:='24日';
AMonth[25]:='25日';
AMonth[26]:='26日';
AMonth[27]:='27日';
AMonth[28]:='28日';
end;
procedure TSys910_03Form.FormCreate(Sender: TObject);
begin
SetInterface;
end;
procedure TSys910_03Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
//
end;
procedure TSys910_03Form.cbTypeChange(Sender: TObject);
var
I:Integer;
begin
cbTime.Clear;
if cbType.ItemIndex=0 then //即時
begin
edtTime.Text:='';
edtTime.Visible:=True;
cbTime.Visible:=False;
end else
if cbType.ItemIndex=1 then //每天
begin
edtTime.Text:='00:00';
edtTime.Visible:=True;
cbTime.Visible:=False;
end else
if cbType.ItemIndex=2 then //每周
begin
for I:=Low(AWeek) to High(AWeek) do cbTime.Items.Add(AWeek[I]);
cbTime.ItemIndex:=0;
edtTime.Visible:=False;
cbTime.Visible:=True;
end else
if cbType.ItemIndex=3 then //每月
begin
for I:=Low(AWeek) to High(AMonth) do cbTime.Items.Add(AMonth[I]);
cbTime.ItemIndex:=0;
edtTime.Visible:=False;
cbTime.Visible:=True;
end;
edtTime.Enabled:=cbType.ItemIndex<>0;
if edtTime.Enabled then edtTime.Color:=AEnableColor else edtTime.Color:=ADisableColor;
end;
procedure TSys910_03Form.bbtnOkClick(Sender: TObject);
begin
//確定(&O)
if (cbType.ItemIndex=1) and (edtTime.Text='') then
begin
ShowMsg('UMS10000526'); //發送時間不能為空
edtTime.SetFocus;
Abort;
end;
ADataSet.Edit;
ADataSet.FieldByName('FType').Value:=cbType.ItemIndex;
case cbType.ItemIndex of
0:ADataSet.FieldByName('FTime').Value:=0;
1:ADataSet.FieldByName('FTime').Value:=StringToTime(edtTime.Text);
2:ADataSet.FieldByName('FTime').Value:=cbTime.ItemIndex;
3:ADataSet.FieldByName('FTime').Value:=cbTime.ItemIndex;
end;
case cbType.ItemIndex of
0:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text;
1:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+edtTime.Text;
2:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+cbTime.Text;
3:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+cbTime.Text;
end;
ADataSet.Post;
ModalResult:=1;
end;
procedure TSys910_03Form.bbtnExitClick(Sender: TObject);
begin
//退出(&X)
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -