editbespeak.pas

针对快餐店的会员管理系统.具有详细的分类及管理作用

unit EditBespeak;

interface

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

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

var
  EditBespeakForm: TEditBespeakForm;

implementation

uses DM, CallatForm1, ClientList, MAIN, EditClient;

{$R *.dfm}

procedure TEditBespeakForm.RzBitBtn3Click(Sender: TObject);
begin
   Close;
end;

procedure TEditBespeakForm.RzBitBtn2Click(Sender: TObject);
begin
   if (cxDBDateEdit1.Text='')or(RzDBEdit1.Text='') then begin
      Messagebox(handle,'请输入联系主题或客户预约的日期！','重要',MB_OK+MB_ICONWARNING);
      Exit;
   end;

   if (DM1.ADODataSet8.State in[dsInsert,dsEdit]) then begin
      DM1.ADODataSet8.UpdateBatch;
      DM1.ADODataSet9.Requery();
      MainForm.ShowCalendar;
   end;
   CLose;
end;

procedure TEditBespeakForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   DM1.ADODataSet8.Cancel;
end;

procedure TEditBespeakForm.RzBitBtn1Click(Sender: TObject);
begin
//转化为正式拜访记录
if (DM1.ADODataSet8.State in[dsEdit,dsInsert])or(DM1.ADODataSet8.IsEmpty) then begin
   Messagebox(handle,'不能将空记录或正在编辑中的记录转化成正式联系记录！请保存后再试！','提示',MB_OK+MB_ICONWARNING);
   Exit;
end;

if Messagebox(handle,'您确定已经完成了预约过程并要将其转化成正式联系记录吗？','询问',mb_yesno+mb_iconquestion)=idyes then begin
   with DM1 do try
      ADODataSet4.Append;
      ADODataSet4.FieldByName('Dates').AsVariant:=ADODataSet8.FieldByName('Dates').AsVariant;
      ADODataSet4.FieldByName('Times').AsVariant:=ADODataSet8.FieldByName('Times').AsVariant;
      ADODataSet4.FieldByName('ClientName').AsString:=ADODataSet8.FieldByName('ClientName').AsString;
      ADODataSet4.FieldByName('Principal').AsString:=ADODataSet8.FieldByName('Principal').AsString;
      ADODataSet4.FieldByName('RelationMode').AsString:=ADODataSet8.FieldByName('RelationMode').AsString;
      ADODataSet4.FieldByName('Remark').AsVariant:=ADODataSet8.FieldByName('Remark').AsVariant;
      ADODataSet4.FieldByName('Motif').AsString:=ADODataSet8.FieldByName('Motif').AsString;
      ADODataSet4.Post;
      ADODataSet8.Delete;
      ADODataSet9.Requery();
      EditBespeakForm.Close;
      EditBespeakForm.Hide;
      //重新显示事务安排
      MainForm.ShowCalendar;
      CallatForm.ShowModal;
   except
      Messagebox(handle,'数据转化过程出现意外失败！','错误',MB_OK+MB_ICONERROR);
      ADODataSet4.Cancel;
      Exit;
   end
end;
end;

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

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

end.