callatform1.pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· PAS 代码 · 共 98 行

unit CallatForm1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, cxDBEdit, RzButton, DBCtrls, RzDBNav,
  RzDBCmbo, StdCtrls, RzCmboBx, RzDBEdit, Mask, RzEdit, ExtCtrls, RzPanel,
  ComCtrls, RzDTP, RzDBDTP;

type
  TCallatForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBNavigator1: TRzDBNavigator;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzDBEdit3: TRzDBEdit;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzDBMemo1: TRzDBMemo;
    RzDBComboBox1: TRzDBComboBox;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    cxDBDateEdit1: TcxDBDateEdit;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzDBComboBox1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CallatForm: TCallatForm;

implementation

uses DM, EditClient;

{$R *.dfm}

procedure TCallatForm.RzBitBtn1Click(Sender: TObject);
begin
   //保存修改
   if (RzDBEdit1.Text='')and(cxDBDateEdit1.Text='')then begin
      Messagebox(handle,'请输入主题或客户联系的日期！','重要',MB_OK+MB_ICONWARNING);
      Exit;
   end;

   if DM1.ADODataSet4.Modified then try
      DM1.ADODataSet4.UpdateBatch;
      DM1.ADODataSet10.Requery();
   except
      Messagebox(handle,'资料保存失败，可能在此之前，已经有用户对这条记录进行了修改！请刷新数据显示后再试。','错误',MB_OK+MB_ICONWARNING);
      DM1.ADODataSet4.Cancel;
   end;
   Close;
end;

procedure TCallatForm.RzBitBtn2Click(Sender: TObject);
begin
   Close;
end;

procedure TCallatForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//如果没有保存设置就退出，则取消更改
   Dm1.ADODataSet4.Cancel;
end;

procedure TCallatForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if DM1.ADODataSet4.State in[dsEdit,dsInsert] then begin
      if Messagebox(handle,'您确定要放弃对客户联系记录的修改吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
         CanClose:=true
      else CanClose:=false;
   end;
end;

procedure TCallatForm.RzDBComboBox1Exit(Sender: TObject);
begin
   EditClientForm.TestDataType(RzDBCombobox1.Text,'联系方式',RzDBCombobox1.Items);
end;

end.