【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-MRCLXX_CX.pas，希望本篇文章对您学习有所帮助。

    unit MRCLXX_CX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons;
    
    type
      TFRM_CLXX_CX = class(TForm)
        GroupBox1: TGroupBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        procedure FormShow(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_CLXX_CX: TFRM_CLXX_CX;
    
    implementation
      uses MR_DATA, MRCLXX;
    {$R *.dfm}
    
    procedure TFRM_CLXX_CX.FormShow(Sender: TObject);
    begin
      combobox1.Clear;
      combobox2.Clear;
      with data.ADOd do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct cl_name from tb_cl');
        open;
      end;
      if data.ADOd.RecordCount>0 then
      begin
        while not data.ADOd.Eof do
        begin
          combobox1.Items.Add(data.ADOd.fieldbyname('cl_name').AsString);
          data.ADOd.Next;
        end;
      end;
      with data.ADOd do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct cl_gys from tb_cl');
        open;
      end;
      if data.ADOd.RecordCount>0 then
      begin
        while not data.ADOd.Eof do
        begin
          combobox2.Items.Add(data.ADOd.fieldbyname('cl_gys').AsString);
          data.ADOd.Next;
        end;
      end;
    end;
    
    procedure TFRM_CLXX_CX.BitBtn1Click(Sender: TObject);
    var
      s,p : string;
    begin
      p := '';
      s := 'aa';
      if RadioButton1.Checked = true then
      begin
        p := 'cl_name';
        s := trim(combobox1.Text);
      end;
    
      if RadioButton2.Checked = true then
      begin
        p := 'cl_gys';
        s := trim(combobox2.Text);
      end;
    
      if (s <> 'aa')and(s <> '') then
      begin
        with data.ADOa do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_cl where '+p+'='+''''+s+'''');
          open;
        end;
        if data.ADOa.RecordCount> 0 then
        begin
          FRM_CLXX.edit1.Text := data.ADOa.fieldbyname('cl_hh').AsString;
          FRM_CLXX.edit2.Text := data.ADOa.fieldbyname('cl_gys').AsString;
          FRM_CLXX.edit3.Text := data.ADOa.fieldbyname('cl_dw').AsString;
          FRM_CLXX.edit4.Text := floattostr(data.ADOa.fieldbyname('cl_dj').AsFloat);
          FRM_CLXX.edit5.Text := data.ADOa.fieldbyname('cl_rname').AsString;
          FRM_CLXX.edit6.Text := data.ADOa.fieldbyname('cl_name').AsString;
          FRM_CLXX.edit7.Text := data.ADOa.fieldbyname('cl_cd').AsString;
          FRM_CLXX.ToolButton8.Enabled := true;
          FRM_CLXX.ToolButton9.Enabled := true;
          FRM_CLXX.ToolButton10.Enabled := true;
          FRM_CLXX.ToolButton11.Enabled := true;
        end
        else
        begin
          FRM_CLXX.edit1.Text := '';
          FRM_CLXX.edit2.Text := '';
          FRM_CLXX.edit3.Text := '';
          FRM_CLXX.edit4.Text := '';
          FRM_CLXX.edit5.Text := '';
          FRM_CLXX.edit6.Text := '';
          FRM_CLXX.edit7.Text := '';
          FRM_CLXX.ToolButton8.Enabled := false;
          FRM_CLXX.ToolButton9.Enabled := false;
          FRM_CLXX.ToolButton10.Enabled := false;
          FRM_CLXX.ToolButton11.Enabled := false;
        end;
      end
      else
      begin
        showmessage('查询条件不能为空。');
      end;
    
    end;
    
    procedure TFRM_CLXX_CX.BitBtn2Click(Sender: TObject);
    begin
      close;
    end;
    
    procedure TFRM_CLXX_CX.RadioButton1Click(Sender: TObject);
    begin
      combobox2.Text := '';
    end;
    
    procedure TFRM_CLXX_CX.RadioButton2Click(Sender: TObject);
    begin
      combobox1.Text := '';
    end;
    
    end.
    

上一篇：MRCLXX.pas
下一篇：澳大利亚留学生英语会计案例分析报告:Blue Moon case study