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

    unit MRKHTS_CX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons;
    
    type
      TFRM_KHTS_CX = class(TForm)
        GroupBox1: TGroupBox;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        RadioButton3: TRadioButton;
        ComboBox3: TComboBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        RadioButton4: TRadioButton;
        ComboBox4: TComboBox;
        procedure FormShow(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
        procedure RadioButton4Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_KHTS_CX: TFRM_KHTS_CX;
    
    implementation
      USES DATA, MRKHTS;
    {$R *.dfm}
    
    procedure TFRM_KHTS_CX.FormShow(Sender: TObject);
    begin
      with database.ADO_KHTS do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_khts');
        open;
      end;
    
      combobox1.Clear;
      combobox2.Clear;
      combobox3.Clear;
      combobox4.Clear;
      with database.ADO_bb do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_KHTS');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('khts_qymc').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do   //投拆人
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khts_tsr from tb_Client_khts');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('khts_tsr').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do   //投拆主题
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khts_tszt from tb_Client_khts');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox3.Items.Add(Trim(database.ADO_bb.fieldbyname('khts_tszt').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do   //投拆受理人
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khts_tsslr from tb_Client_khts');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox4.Items.Add(Trim(database.ADO_bb.fieldbyname('khts_tsslr').AsString));
          database.ADO_bb.Next;
        end;
      end;
    end;
    
    procedure TFRM_KHTS_CX.BitBtn1Click(Sender: TObject);
    var
      s,p : string;
    begin
      p := '';
      s := 'aa';
      if RadioButton1.Checked = true then
      begin
        p := 'khts_qymc';
        s := trim(combobox1.Text);
      end;
    
      if RadioButton2.Checked = true then
      begin
        p := 'khts_tsr';
        s := trim(combobox2.Text);
      end;
    
      if RadioButton3.Checked = true then
      begin
        p := 'khts_tszt';
        s := trim(combobox3.Text);
      end;
    
      if RadioButton4.Checked = true then
      begin
        p := 'khts_tsslr';
        s := trim(combobox4.Text);
      end;
    
      if (s <> 'aa')and(s <> '') then
      begin
        with database.ADO_KHTS do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_Client_khts where '+p+'='+''''+s+'''');
          open;
        end;
        FRM_KHTS.edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
        FRM_KHTS.edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
        FRM_KHTS.edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
        FRM_KHTS.edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
        FRM_KHTS.edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
        FRM_KHTS.combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
        FRM_KHTS.combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
        FRM_KHTS.memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
        FRM_KHTS.memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
        FRM_KHTS.DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;
    
      end
      else
      begin
        showmessage('查询条件不能为空。');
      end;
    
    end;
    
    procedure TFRM_KHTS_CX.RadioButton1Click(Sender: TObject);
    begin
      combobox2.Text := '';
      combobox3.Text := '';
      combobox4.Text := '';
    
    end;
    
    procedure TFRM_KHTS_CX.RadioButton2Click(Sender: TObject);
    begin
      combobox1.Text := '';
      combobox3.T