editlinkmanform1.~pas

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

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;
    RzDBCheckBox1: TRzDBCheckBox;
    RzDBEdit3: 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;
    RzDBMemo1: TRzDBMemo;
    cxDBDateEdit1: TcxDBDateEdit;
    Label14: TLabel;
    RzDBEdit10: TRzDBEdit;
    Label15: TLabel;
    RzDBEdit11: TRzDBEdit;
    Label16: TLabel;
    RzDBEdit12: TRzDBEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    RzDBEdit16: TRzDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    RzDBEdit17: TRzDBEdit;
    Label23: TLabel;
    RzDBEdit18: TRzDBEdit;
    Label24: TLabel;
    RzDBEdit19: TRzDBEdit;
    RadioGroup1: TRadioGroup;
    Select: TRzDBComboBox;
    RzDBComboBox1: TRzDBComboBox;
    RzDBComboBox2: TRzDBComboBox;
    RzDBComboBox3: TRzDBComboBox;
    procedure DBComboBox2Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditLinkmanForm: TEditLinkmanForm;

implementation

uses DM, MAIN, EditClient;

{$R *.dfm}

procedure TEditLinkmanForm.DBComboBox2Exit(Sender: TObject);
begin
   if DM1.ADODataSet2.Modified then begin
      DM1.ADODataSet2.UpdateBatch;
      DM1.LinkManList.Requery();
   end;
   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.RzBitBtn1Click(Sender: TObject);
begin
   close;
end;

procedure TEditLinkmanForm.RzBitBtn2Click(Sender: TObject);
var
 sPingJia:string;
begin
  case radiogroup1.ItemIndex of
    0:sPingJia:='A';
    1:sPingJia:='B';
    2:sPingJia:='C';
    3:sPingJia:='D';
  end;
  with dm1.ADODataSet2 do
  begin
    edit;
    fieldbyName('PingJIa').AsString:=sPingJia;
    Post;
    
  end;
end;



end.