【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MRKHXX_CX.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit MRKHXX_CX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons;
    
    type
      TFRM_KHXX_CX = class(TForm)
        GroupBox1: TGroupBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        RadioButton3: TRadioButton;
        RadioButton4: TRadioButton;
        RadioButton5: TRadioButton;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        ComboBox3: TComboBox;
        ComboBox4: TComboBox;
        ComboBox5: TComboBox;
        ComboBox6: TComboBox;
        Label1: TLabel;
        procedure FormShow(Sender: TObject);
        procedure ComboBox5Change(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
        procedure RadioButton4Click(Sender: TObject);
        procedure RadioButton5Click(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_KHXX_CX: TFRM_KHXX_CX;
    
    implementation
      USES MRKHXX, DATA;
    {$R *.dfm}
    
    procedure TFRM_KHXX_CX.FormShow(Sender: TObject);
    begin
      with database.ADO_KHXX do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_khxx');
        open;
      end;
    
      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;
    
    end;
    
    procedure TFRM_KHXX_CX.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(Trim(database.ADO_bb.fieldbyname('csxx_csmc').AsString));
        database.ADO_bb.Next;
      end;
    end;
    
    procedure TFRM_KHXX_CX.RadioButton1Click(Sender: TObject);
    begin
      combobox2.Text := '';
      combobox3.Text := '';
      combobox4.Text := '';
      combobox5.Text := '';
      combobox6.Text := '';
    
    end;
    
    procedure TFRM_KHXX_CX.RadioButton2Click(Sender: TObj