editlinkmanform1.pas

来自「一个全面的客户管理系统,是用delphi开发的,界面和功能都很不错的」· PAS 代码 · 共 105 行

unit EditLinkmanForm1;

interface

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

type
  TEditLinkmanForm = class(TForm)
    RzGroupBox1: TRzGroupBox;
    Label1: TLabel;
    RzDBEdit1: TRzDBEdit;
    Label2: TLabel;
    RzDBEdit2: TRzDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    RzDBCheckBox1: TRzDBCheckBox;
    RzDBEdit3: TRzDBEdit;
    Label7: TLabel;
    RzDBEdit4: TRzDBEdit;
    Label8: TLabel;
    RzDBEdit5: TRzDBEdit;
    Label9: TLabel;
    RzDBEdit6: TRzDBEdit;
    Label10: TLabel;
    RzDBEdit7: TRzDBEdit;
    Label11: TLabel;
    RzDBEdit8: TRzDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    RzDBNavigator1: TRzDBNavigator;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Label5: TLabel;
    RzDBComboBox1: TRzDBComboBox;
    RzDBComboBox2: TRzDBComboBox;
    RzDBMemo1: TRzDBMemo;
    cxDBDateEdit1: TcxDBDateEdit;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzDBComboBox1Exit(Sender: TObject);
    procedure RzDBComboBox2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditLinkmanForm: TEditLinkmanForm;

implementation

uses DM, MAIN, EditClient;

{$R *.dfm}

procedure TEditLinkmanForm.RzBitBtn2Click(Sender: TObject);
begin
   if DM1.ADODataSet2.Modified then begin
      DM1.ADODataSet2.UpdateBatch;
      DM1.LinkManList.Requery();
   end;
   Close;
end;

procedure TEditLinkmanForm.RzBitBtn1Click(Sender: TObject);
begin
   Close;
end;

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

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

procedure TEditLinkmanForm.RzDBComboBox1Exit(Sender: TObject);
begin
   EditClientForm.TestDataType(RzDBCombobox1.Text,'职务设置',RzDBCombobox1.Items);
end;

procedure TEditLinkmanForm.RzDBComboBox2Exit(Sender: TObject);
begin
   EditClientForm.TestDataType(RzDBCombobox2.Text,'部门设置',RzDBCombobox2.Items);
end;

end.