addcustomer.pas

房产售楼CRM系统是以房地产销售业务为主线

unit AddCustomer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls;

type
  TAddCustomerForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Image1: TImage;
    ExitBitBtn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    khdmEdit: TEdit;
    khmcEdit: TEdit;
    fddbrEdit: TEdit;
    nlEdit: TEdit;
    gjEdit: TEdit;
    khzjEdit: TEdit;
    yyzzEdit: TEdit;
    djdqEdit: TEdit;
    lxdhEdit: TEdit;
    lxdzEdit: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    wtdlrEdit: TEdit;
    wtdlrgjEdit: TEdit;
    wtdlrlxdhEdit: TEdit;
    wtdlrlxdzEdit: TEdit;
    wtdlrsfzhEdit: TEdit;
    SexCBox: TComboBox;
    khdmDBEdit: TDBEdit;
    khmcDBEdit: TDBEdit;
    fddbrDBEdit: TDBEdit;
    Sex_cDBEdit: TDBEdit;
    SaveBitBtn: TBitBtn;
    nlDBEdit: TDBEdit;
    gjDBEdit: TDBEdit;
    khzjDBEdit: TDBEdit;
    yyzzDBEdit: TDBEdit;
    djdqDBEdit: TDBEdit;
    lxdhDBEdit: TDBEdit;
    lxdzDBEdit: TDBEdit;
    wtdlrDBEdit: TDBEdit;
    wtdlrgjDBEdit: TDBEdit;
    wtdlrlxdhDBEdit: TDBEdit;
    wtdlrlxdzDBEdit: TDBEdit;
    wtdlrsfzhDBEdit: TDBEdit;
    SexDBEdit: TDBEdit;
    khdmConfirmed_bookDBEdit: TDBEdit;
    fddbrConfirmed_bookDBEdit: TDBEdit;
    procedure ExitBitBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SaveBitBtnClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddCustomerForm: TAddCustomerForm;

implementation

uses udm,main,Customer;

{$R *.DFM}

procedure TAddCustomerForm.ExitBitBtnClick(Sender: TObject);
begin
  Close;
end;

procedure TAddCustomerForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  DM.Sex_c.Close;
  DM.Customer_c.Close;
  DM.Customer_c.SQL.Clear;
  DM.Customer_c.SQL.Add('select * from Customer_c');
  DM.Customer_c.Open;
end;

procedure TAddCustomerForm.FormCreate(Sender: TObject);
begin
//  DM.Sex_cDAO.DatabaseName:=AllDBFullName;
//  DM.Sex_cDAO.Connected :=true;
  DM.Sex_c.open;
  while not DM.Sex_c.eof do
  begin
    SexCBox.Items.Add(Sex_cDBEdit.EditText);
    DM.Sex_c.next;
  end;
  DM.Customer_c.Close;
  DM.Customer_c.SQL.Clear;
  DM.Customer_c.SQL.Add('Select * from Customer_c');
  if InsertOrEdit=1 then
  if (khdm<>'') and (khmc<>'') then
    DM.Customer_c.SQL.Add(' where (客户代码 LIKE '+khdm+') and (姓名 LIKE '+khmc+')');
  DM.Customer_c.Open;
  if InsertOrEdit=1 then
  begin
    khdmEdit.Text:=khdmDBEdit.EditText;
    khmcEdit.Text:=khmcDBEdit.EditText;
    fddbrEdit.Text:=fddbrDBEdit.EditText;
    SexCBox.Text:=SexDBEdit.EditText;
    nlEdit.Text:=nlDBEdit.EditText;
    khzjEdit.Text:=khzjDBEdit.EditText;
    yyzzEdit.Text:=yyzzDBEdit.EditText;
    djdqEdit.Text:=djdqDBEdit.EditText;
    lxdhEdit.Text:=lxdhDBEdit.EditText;
    gjEdit.Text:=gjDBEdit.EditText;
    lxdzEdit.Text:=lxdzDBEdit.EditText;
    wtdlrEdit.Text:=wtdlrDBEdit.EditText;
    wtdlrgjEdit.Text:=wtdlrgjDBEdit.EditText;
    wtdlrlxdhEdit.Text:=wtdlrlxdhDBEdit.EditText;
    wtdlrlxdzEdit.Text:=wtdlrlxdzDBEdit.EditText;
    wtdlrsfzhEdit.Text:=wtdlrsfzhDBEdit.EditText;
  end;
end;

procedure TAddCustomerForm.SaveBitBtnClick(Sender: TObject);
begin
  if InsertOrEdit=0 then DM.Customer_c.Insert
  else DM.Customer_c.Edit;
  if khdmEdit.Text<>'' then
  begin
    khdmDBEdit.EditText:=khdmEdit.Text;
    khdmConfirmed_bookDBEdit.EditText:=khdmEdit.Text;
  end
  else
  begin
    khdmEdit.Setfocus;
    exit;
  end;
  if khmcEdit.Text<>'' then  khmcDBEdit.EditText:=khmcEdit.Text
  else
  begin
    khmcEdit.Setfocus;
    exit;
  end;
  fddbrDBEdit.EditText:=fddbrEdit.Text;
  fddbrConfirmed_bookDBEdit.EditText:=fddbrEdit.Text;
  SexDBEdit.EditText:=SexCBox.Items[SexCBox.ItemIndex];
  if nlEdit.Text='' then
  begin
    ShowMessage('必须输入[年龄]');
    nlEdit.Setfocus;
    exit;
  end;
  if (StrToInt(nlEdit.Text)>=0) and (StrToInt(nlEdit.Text)<=300) then
      nlDBEdit.EditText:=nlEdit.Text
  else
  begin
    ShowMessage('年龄在0--300之间');
    nlEdit.Setfocus;
    exit;
  end;
  khzjDBEdit.EditText:=khzjEdit.Text;
  yyzzDBEdit.EditText:=yyzzEdit.Text;
  djdqDBEdit.EditText:=djdqEdit.Text;
  lxdhDBEdit.EditText:=lxdhEdit.Text;
  gjDBEdit.EditText:=gjEdit.Text;
  lxdzDBEdit.EditText:=lxdzEdit.Text;
  wtdlrDBEdit.EditText:=wtdlrEdit.Text;
  wtdlrgjDBEdit.EditText:=wtdlrgjEdit.Text;
  wtdlrlxdhDBEdit.EditText:=wtdlrlxdhEdit.Text;
  wtdlrlxdzDBEdit.EditText:=wtdlrlxdzEdit.Text;
  wtdlrsfzhDBEdit.EditText:=wtdlrsfzhEdit.Text;
  DM.Customer_c.Post;
  if InsertOrEdit=0 then SaveBitBtn.Enabled:=False;
  close;
end;



end.