vipcustedfrm.pas

来自「群星医药系统源码」· PAS 代码 · 共 98 行

unit VipCustEdFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, RzButton, ComCtrls, RzDTP, RzDBDTP, Mask,
  RzEdit, RzDBEdit, DB,DBClient;

type
  TFmVipCustEd = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Panel2: TPanel;
    Bevel1: TBevel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    EdNo: TRzDBEdit;
    EdName: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBDateTimePicker1: TRzDBDateTimePicker;
    RzDBEdit9: TRzDBEdit;
    EdDiscount: TRzDBEdit;
    DsRtlVipCust: TDataSource;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    AbleClose : Boolean;
  public
    { Public declarations }
  end;

var
  FmVipCustEd: TFmVipCustEd;

implementation

uses VipCust;

{$R *.dfm}

procedure TFmVipCustEd.RzBitBtn2Click(Sender: TObject);
begin
  AbleClose := True;
  Close;
end;

procedure TFmVipCustEd.RzBitBtn1Click(Sender: TObject);
Var HintMsg :String;
begin
  HintMsg := '';
  if Trim(Edno.EditText)='' then HintMsg := HintMsg +'VIP客户编号不能为空!'+#10#13;
  if Trim(EdName.EditText)='' then HintMsg := HintMsg +'客户姓名不能为空!'+#10#13;
  if Trim(EdDiscount.EditText)='' then HintMsg := HintMsg +'享受折扣不能为空!'+#10#13;
  if Trim(HintMsg)<>'' then
  begin
    Application.MessageBox(PChar(HintMsg),'警告',MB_ICONWARNING+MB_OK);
    Exit;
  end;
  If TClientDataSet(DsRtlVipCust.DataSet).ApplyUpdates(0)>0 Then begin
    Application.MessageBox('数据提交失败！', '消息', MB_ICONINFORMATION);
    SetForegroundWindow(Handle);
    Exit;
  end;
  AbleClose := True;
  ModalResult := MrOK;  
end;

procedure TFmVipCustEd.FormCreate(Sender: TObject);
begin
  AbleClose := False;
end;

procedure TFmVipCustEd.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := AbleClose;
end;

end.