mrkhxx_zcx.pas

客户管理系统主要是以客户为基础

unit MRKHXX_ZCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, DB, Grids, DBGrids,
  StdCtrls, inifiles;

type
  TFRM_KHXX_ZCX = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    GroupBox2: TGroupBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_KHXX_ZCX: TFRM_KHXX_ZCX;

implementation
  uses DATA;
{$R *.dfm}

procedure TFRM_KHXX_ZCX.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '客户信息查询';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  combobox1.Clear;
  combobox2.Clear;
  combobox3.Clear;
  combobox4.Clear;
  combobox5.Clear;
  combobox6.Clear;

  with database.ADO_bb do   //客户名称
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khxx_mc from tb_khxx');
    open;
  end;
  database.ADO_bb.First;
  while not database.ADO_bb.Eof do
  begin
    combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('khxx_mc').AsString));
    database.ADO_bb.Next;
  end;

  with database.ADO_bb do   //主要联系人
  begin
    close;
    sql.Clear;
    sql.Add('select distinct khxx_lxr from tb_khxx');
    open;
  end;
  database.ADO_bb.First;
  while not database.ADO_bb.Eof do
  begin
    combobox4.Items.Add(Trim(database.ADO_bb.fieldbyname('khxx_lxr').AsString));
    database.ADO_bb.Next;
  end;

  with database.ADO_bb do   //企业性质
  begin
    close;
    sql.Clear;
    sql.Add('select qyxz_xzmc from tb_Client_qyxz');
    open;
  end;
  database.ADO_bb.First;
  while not database.ADO_bb.Eof do
  begin
    combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('qyxz_xzmc').AsString));
    database.ADO_bb.Next;
  end;

  with database.ADO_bb do   //企业类型
  begin
    close;
    sql.Clear;
    sql.Add('select qylx_lxmc from tb_Client_qylx');
    open;
  end;
  database.ADO_bb.First;
  while not database.ADO_bb.Eof do
  begin
    combobox3.Items.Add(Trim(database.ADO_bb.fieldbyname('qylx_lxmc').AsString));
    database.ADO_bb.Next;
  end;

  with database.ADO_bb do    //省份
  begin
    close;
    sql.Clear;
    sql.Add('select distinct csxx_sfmc from tb_Client_csxx');
    open;
  end;
  while not database.ADO_bb.Eof do
  begin
    combobox5.Items.Add(Trim(database.ADO_bb.fieldbyname('csxx_sfmc').AsString));
    database.ADO_bb.Next;
  end;

  with database.ADO_KHXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_khxx');
    open;
  end;  
end;

procedure TFRM_KHXX_ZCX.ToolButton6Click(Sender: TObject);
var
  s,p : string;
begin
  p := '';
  s := 'aa';
  if RadioButton1.Checked = true then
  begin
    p := 'khxx_mc';
    s := trim(combobox1.Text);
  end;

  if RadioButton2.Checked = true then
  begin
    p := 'khxx_qyxz';
    s := trim(combobox2.Text);
  end;

  if RadioButton3.Checked = true then
  begin
    p := 'khxx_qylx';
    s := trim(combobox3.Text);
  end;

  if RadioButton4.Checked = true then
  begin
    p := 'khxx_lxr';
    s := trim(combobox4.Text);
  end;

  if RadioButton5.Checked = true then
  begin
    if combobox6.Text = '' then
    begin
      p := 'khxx_szsf';
      s := trim(combobox5.Text);
    end
    else
    begin
      p := 'khxx_szcs';
      s := trim(combobox6.Text);
    end;
  end;
  
  if (s <> 'aa')and(s <> '') then
  begin
    with database.ADO_KHXX do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_khxx where '+p+'='+''''+s+'''');
      open;
    end;
  end
  else
  begin
    showmessage('查询条件不能为空。');
  end;


end;

procedure TFRM_KHXX_ZCX.ToolButton9Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_KHXX_ZCX.FormCreate(Sender: TObject);
begin
  database.ADO_KHXX.Active := false;
  database.ADO_KHXX.Active := true;
end;

procedure TFRM_KHXX_ZCX.ToolButton1Click(Sender: TObject);
begin
  database.ADO_KHXX.First;
  ToolButton1.Enabled := false;
  ToolButton2.Enabled := false;
  ToolButton3.Enabled := true;
  ToolButton4.Enabled := true;
end;

procedure TFRM_KHXX_ZCX.ToolButton2Click(Sender: TObject);
begin
  database.ADO_KHXX.Prior;
  if not database.ADO_KHXX.Bof then
  begin
    ToolButton1.Enabled := true;
    ToolButton2.Enabled := true;
    ToolButton3.Enabled := true;
    ToolButton4.Enabled := true;
  end
  else
  begin
    ToolButton1.Enabled := false;
    ToolButton2.Enabled := false;
    ToolButton3.Enabled := true;
    ToolButton4.Enabled := true;
  end;
end;

procedure TFRM_KHXX_ZCX.ToolButton3Click(Sender: TObject);
begin
  database.ADO_KHXX.Next;
  if not database.ADO_KHXX.Eof then
  begin
    ToolButton1.Enabled := true;
    ToolButton2.Enabled := true;
    ToolButton3.Enabled := true;
    ToolButton4.Enabled := true;
  end
  else
  begin
    ToolButton1.Enabled := true;
    ToolButton2.Enabled := true;
    ToolButton3.Enabled := false;
    ToolButton4.Enabled := false;
  end;
end;

procedure TFRM_KHXX_ZCX.ToolButton4Click(Sender: TObject);
begin
  database.ADO_KHXX.Last;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton3.Enabled := false;
  ToolButton4.Enabled := false;
end;

procedure TFRM_KHXX_ZCX.ToolButton7Click(Sender: TObject);
begin
  with database.ADO_KHXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_khxx');
    open;
  end;
end;

procedure TFRM_KHXX_ZCX.RadioButton1Click(Sender: TObject);
begin
  COMBOBOX2.Text := '';
  COMBOBOX3.Text := '';
  COMBOBOX4.Text := '';
  COMBOBOX5.Text := '';
  COMBOBOX6.Text := '';

end;

procedure TFRM_KHXX_ZCX.RadioButton2Click(Sender: TObject);
begin
  COMBOBOX1.Text := '';
  COMBOBOX3.Text := '';
  COMBOBOX4.Text := '';
  COMBOBOX5.Text := '';
  COMBOBOX6.Text := '';
end;

procedure TFRM_KHXX_ZCX.RadioButton3Click(Sender: TObject);
begin
  COMBOBOX2.Text := '';
  COMBOBOX1.Text := '';
  COMBOBOX4.Text := '';
  COMBOBOX5.Text := '';
  COMBOBOX6.Text := '';
end;

procedure TFRM_KHXX_ZCX.RadioButton4Click(Sender: TObject);
begin
  COMBOBOX2.Text := '';
  COMBOBOX3.Text := '';
  COMBOBOX1.Text := '';
  COMBOBOX5.Text := '';
  COMBOBOX6.Text := '';
end;

procedure TFRM_KHXX_ZCX.RadioButton5Click(Sender: TObject);
begin
  COMBOBOX2.Text := '';
  COMBOBOX3.Text := '';
  COMBOBOX4.Text := '';
  COMBOBOX1.Text := '';
  COMBOBOX6.Text := '';
end;

procedure TFRM_KHXX_ZCX.ComboBox5Change(Sender: TObject);
begin
  combobox6.Clear;
  with database.ADO_bb do   //城市
  begin
    close;
    sql.Clear;
    sql.Add('select csxx_csmc from tb_Client_csxx where csxx_sfmc='+''''+trim(combobox5.Text)+'''');
    open;
  end;
  while not database.ADO_bb.Eof do
  begin
    combobox6.Items.Add(database.ADO_bb.fieldbyname('csxx_csmc').AsString);
    database.ADO_bb.Next;
  end;
end;

end.