edit.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

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.