client.pas

客户关系管理系统 客户关系管理系统

unit Client;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Mask,
  DBCtrls;

type
  Tcsinfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Panel3: TPanel;
    ADOQuery1DSDesigner: TAutoIncField;
    ADOQuery1ClientID: TWideStringField;
    ADOQuery1ClientName: TWideStringField;
    ADOQuery1ClientTel: TWideStringField;
    ADOQuery1ClientType: TWideStringField;
    ADOQuery1ClientManager: TWideStringField;
    ADOQuery1ClientMemo: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    SpeedButton6: TSpeedButton;
    DBGrid1: TDBGrid;
    ADOQuery1ClientMobil: TWideStringField;
    ADOQuery1ClientEmail: TWideStringField;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery1ClientTel1: TWideStringField;
    Label12: TLabel;
    DBEdit5: TDBEdit;
    SpeedButton7: TSpeedButton;
    ADOQuery3: TADOQuery;
    SpeedButton8: TSpeedButton;
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
  private
    { Private declarations }
     // fform:TForm ;
  public
    { Public declarations }
   // property form0 :tform read fform write fform ;
  end;

var
  csinfo: Tcsinfo;


implementation

uses Detail, Main, Search, Rec;

{$R *.dfm}

procedure Tcsinfo.SpeedButton5Click(Sender: TObject);
begin
Close ;
end;

procedure Tcsinfo.DBGrid1DblClick(Sender: TObject);
begin
    try
    detailfrm:=tdetailfrm.Create(nil);
    detailfrm.ShowModal;
    finally
    freeandnil(detailfrm);
    end;
end;

procedure Tcsinfo.SpeedButton1Click(Sender: TObject);
begin
DataSource1.DataSet.Append;
//-----------------------
DBEdit2.Enabled:=true;
DBEdit3.Enabled:=true;
DBEdit4.Enabled:=true;
DBLookupComboBox1.Enabled:=true;
DBEdit5.Enabled:=true;
DBEdit6.Enabled:=true;
DBEdit7.Enabled:=true;
DBEdit8.Enabled:=true;
DBEdit9.Enabled:=true;
DBEdit2.SetFocus;
//------------------------
SpeedButton6.Enabled:=true;
SpeedButton7.Enabled:=true;
end;

procedure Tcsinfo.SpeedButton2Click(Sender: TObject);
var
str :string ;
begin
  str:=trim(DBEdit2.Text);
 if application.MessageBox('确认删除吗？','确认？',mb_yesno)=idyes then
   begin
     with ADOQuery3 do
     begin
     close;
     sql.Text:='delete * from clientdetails where comid='''+str+'''';
     ExecSQL;
     end;
     //--------------------
     with ADOQuery3 do
     begin
     close;
     sql.Text:='delete * from Record where Recordid='''+str+'''';
     ExecSQL;
     end;
     //--------------------
     DataSource1.DataSet.Delete;
   end
    else exit;
end;

procedure Tcsinfo.SpeedButton3Click(Sender: TObject);
begin
DataSource1.DataSet.Edit;
//---------------------
DBEdit2.Enabled:=true;
DBEdit3.Enabled:=true;
DBEdit4.Enabled:=true;
DBEdit5.Enabled:=true;
DBLookupComboBox1.Enabled:=true;
DBEdit6.Enabled:=true;
DBEdit7.Enabled:=true;
DBEdit8.Enabled:=true;
DBEdit9.Enabled:=true;
//---------------

SpeedButton6.Enabled:=true;
SpeedButton7.Enabled:=true;
end;

procedure Tcsinfo.SpeedButton6Click(Sender: TObject);
begin
   DataSource1.DataSet.Edit;
    DataSource1.DataSet.Post;
    //---------------------
    DBEdit2.Enabled:=false;
DBEdit3.Enabled:=false;
DBEdit4.Enabled:=false;
DBEdit5.Enabled:=false;
DBLookupComboBox1.Enabled:=false;
DBEdit6.Enabled:=false;
DBEdit7.Enabled:=false;
DBEdit8.Enabled:=false;
DBEdit9.Enabled:=false;
//-----------------

SpeedButton6.Enabled:=false;
SpeedButton7.Enabled:=false;
end;

procedure Tcsinfo.SpeedButton4Click(Sender: TObject);
begin
    try
        SearchFrm:=TSearchFrm.Create(nil);
        SearchFrm.ShowModal ;
     finally
        FreeAndNil(SearchFrm);
     end;
end;

procedure Tcsinfo.SpeedButton7Click(Sender: TObject);
begin
DataSource1.DataSet.Cancel;
    DBEdit2.Enabled:=false;
DBEdit3.Enabled:=false;
DBEdit4.Enabled:=false;
DBEdit5.Enabled:=false;
DBLookupComboBox1.Enabled:=false;
DBEdit6.Enabled:=false;
DBEdit7.Enabled:=false;
DBEdit8.Enabled:=false;
DBEdit9.Enabled:=false;
//-----------------
SpeedButton6.Enabled:=false;
SpeedButton7.Enabled:=false;
end;

procedure Tcsinfo.FormShow(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Text:='select * from client';
open;
end;
with ADOQuery2 do
begin
close;
sql.Text:='select distinct typedocument from companytype';
open;
end;

end;

procedure Tcsinfo.SpeedButton8Click(Sender: TObject);
begin
try
RecordFrm:=TRecordFrm.Create(nil);
RecordFrm.ShowModal;
finally

end;
end;

end.