?? edit.pas
字號:
unit edit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls, DB,
DBCtrls, Mask, ModalForm, MoveImageButton, LabelButton, HemisphereButton;
type
TMemberEditForm = class(TMyModalForm)
Label1: TLabel;
dbedtCarNo: TDBEdit;
Label2: TLabel;
dbedtName: TDBEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
dbckbValidity: TDBCheckBox;
Label7: TLabel;
dbedtPrepay: TDBEdit;
Label8: TLabel;
dbedtAllUsedTime: TDBEdit;
Label9: TLabel;
dbmMemo: TDBMemo;
dbcboSex: TDBComboBox;
dbedtLoginDate: TDBEdit;
dbedtUnLoginDate: TDBEdit;
dbcboClass: TDBComboBox;
HemiBtn_Cls: THemiBtn;
procedure MIBtnOKClick(Sender: TObject);
procedure MIBtnExitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure dbedtPrepayKeyPress(Sender: TObject; var Key: Char);
procedure HemiBtn_ClsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
OPType:integer;
procedure GetClsName; //操作類型,0為添加,1為修改
end;
var
MemberEditForm: TMemberEditForm;
implementation
uses data, InputNo, MClass;
{$R *.dfm}
procedure TMemberEditForm.MIBtnOKClick(Sender: TObject);
begin
inherited;
if (OpType=0) then
begin
if Length(Trim(dbedtCarNo.Text))<>8 then
begin
ShowMessage('請輸入8位的數字卡號');
dbedtCarNo.SetFocus;
exit;
end
else if DM.FindMember(dbedtCarNo.Text) then
begin
ShowMessage('該卡號已存在,請換另外一個卡號!');
dbedtCarNo.SetFocus;
exit;
end;
end;
if Trim(dbedtName.Text)='' then
begin
ShowMessage('姓名不能為空!');
dbedtName.SetFocus;
exit;
end;
if not DM.CheckDateFormat(dbedtLoginDate.Text) then
begin
ShowMessage('日期格式填寫錯誤,請重新輸入');
dbedtLoginDate.SetFocus;
exit;
end;
if dbedtUnLoginDate.Enabled and (dbedtUnLoginDate.Text<>'') then
begin
if Not DM.CheckDateFormat(dbedtUnLoginDate.Text) then
begin
ShowMessage('日期格式填寫錯誤,請重新輸入');
dbedtUnLoginDate.SetFocus;
exit;
end;
end;
try
DM.ADOQMember.Post;
DM.AddCls(Trim(dbcboClass.Text));
except
ModalResult:=mrCancel;
end;
ModalResult:=mrOK;
end;
procedure TMemberEditForm.MIBtnExitClick(Sender: TObject);
begin
inherited;
DM.ADOQMember.Cancel;
ModalResult:=mrCancel;
end;
procedure TMemberEditForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
Action:=caFree;
end;
procedure TMemberEditForm.FormShow(Sender: TObject);
begin
inherited;
GetClsName;
Hemibtn_Cls.Visible :=DM.curAdmin.FPopedom =0;
if (DM.curAdmin.FPopedom =0)and(OpType=1) then
begin
dbedtPrepay.Enabled :=true;
dbedtPrepay.Color :=clWindow;
dbedtAllUsedTime.Enabled :=true;
dbedtAllUsedTime.Color :=clWindow;
dbedtUnLoginDate.Enabled :=true;
dbedtUnLoginDate.Color :=clWindow;
end;
if OpType=1 then
begin
dbedtCarNo.Enabled :=false;
dbedtCarNo.Color :=clGray;
end; //end if
end;
procedure TMemberEditForm.dbedtPrepayKeyPress(Sender: TObject;
var Key: Char);
begin
inherited;
if not(Key in ['0'..'9',#8,#13]) then
begin
Key:=#0;
Beep;
end;
end;
procedure TMemberEditForm.HemiBtn_ClsClick(Sender: TObject);
begin
inherited;
MClassForm:=TMClassForm.Create(Application);
if MClassForm.ShowModal=mrOK then
GetClsName;
end;
procedure TMemberEditForm.GetClsName;
begin
dbcboClass.Items.Clear;
with DM.ADOQClass do
begin
Active:=true;
First;
while not eof do
begin
dbcboClass.Items.Add(FieldValues['clsName']);
next;
end;
Active:=false;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -