【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了MRJY_CX.pas相关资料，希望对各位网友有所帮助!

    unit MRJY_CX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons, ComCtrls;
    
    type
      TFRM_JY_CX = class(TForm)
        GroupBox1: TGroupBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        RadioButton3: TRadioButton;
        DateTimePicker1: TDateTimePicker;
        procedure FormShow(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_JY_CX: TFRM_JY_CX;
    
    implementation
    
    uses MR_DATA, MRJY;
    
    {$R *.dfm}
    
    procedure TFRM_JY_CX.FormShow(Sender: TObject);
    begin
      combobox1.Clear;
      combobox2.Text := '';
      DateTimePicker1.Date := now();
      with data.ADOc do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_jy');
        open;
      end;
      if data.ADOc.RecordCount>0 then
      begin
        combobox1.Items.Add(data.ADOc.fieldbyname('scddh').AsString);
        data.ADOc.Next;
      end;
    
    end;
    
    procedure TFRM_JY_CX.BitBtn1Click(Sender: TObject);
    var
      s,p : string;
      year,month,day : word;
    begin
      p := 'aa';
      if RadioButton1.Checked = true then
      begin
        s := 'scddh';
        p := combobox1.Text;
      end;
      if RadioButton2.Checked = true then
      begin
        s := 'jylx';
        p := combobox2.Text;
      end;
      if RadioButton3.Checked = true then
      begin
        s := 'll';
        decodedate(DateTimePicker1.Date,year,month,day);
        with data.ADOa do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_jy where year(jytime)='+floattostr(year)+' and month(jytime)='+floattostr(month)+' and day(jytime)='+floattostr(day));
          open;
        end;
        if data.ADOa.RecordCount>0 then
        begin
          FRM_JY.edit1.Text := data.ADOa.fieldbyname('jyid').AsString;
          FRM_JY.combobox1.Text := data.ADOa.fieldbyname('scddh').AsString;
          FRM_JY.edit2.Text := data.ADOa.fieldbyname('cpmc').AsString;
          FRM_JY.combobox2.Text := data.ADOa.fieldbyname('jylx').AsString;
          FRM_JY.edit3.Text := floattostr(data.ADOa.fieldbyname('zs').AsFloat);
          FRM_JY.edit4.Text := floattostr(data.ADOa.fieldbyname('jysl').AsFloat);
          FRM_JY.edit5.Text := data.ADOa.fieldbyname('hgl').AsString;
          FRM_JY.DateTimePicker1.Date := data.ADOa.fieldbyname('jytime').AsDateTime;
          FRM_JY.edit6.Text := data.ADOa.fieldbyname('jyr').AsString;
          FRM_JY.ToolButton8.Enabled := true;
          FRM_JY.ToolButton9.Enabled := true;
          FRM_JY.ToolButton10.Enabled := true;
          FRM_JY.ToolButton11.Enabled := true;
        end
        else
        begin
          FRM_JY.edit1.Text := '';
          FRM_JY.combobox1.Text := '';
          FRM_JY.edit2.Text := '';
          FRM_JY.combobox2.Text := '';
          FRM_JY.edit3.Text := '';
          FRM_JY.edit4.Text := '';
          FRM_JY.edit5.Text := '';
          FRM_JY.DateTimePicker1.Date := now();
          FRM_JY.edit6.Text := '';
          FRM_JY.ToolButton8.Enabled := false;
          FRM_JY.ToolButton9.Enabled := false;
          FRM_JY.ToolButton10.Enabled := false;
          FRM_JY.ToolButton11.Enabled := false;
        end;
      end;
      if s <> 'll' then
      begin
        if (p = '')or(p = 'aa') then
        begin
          showmessage('查询条件不能为空。');
        end
        else
        begin
            with data.ADOa do
            begin
              close;
              sql.Clear;
              sql.Add('select * from tb_jy where '+s+'='+''''+p+'''');
              open;
            end;
            if data.ADOa.RecordCount>0 then
            begin
              FRM_JY.edit1.Text := data.ADOa.fieldbyname('jyid').AsString;
              FRM_JY.combobox1.Text := data.ADOa.fieldbyname('scddh').AsString;
              FRM_JY.edit2.Text := data.ADOa.fieldbyname('cpmc').AsString;
              FRM_JY.combobox2.Text := data.ADOa.fieldbyname('jylx').AsString;
              FRM_JY.edit3.Text := floattostr(data.ADOa.fieldbyname('zs').AsFloat);
              FRM_JY.edit4.Text := floattostr(data.ADOa.fieldbyname('jysl').AsFloat);
              FRM_JY.edit5.Text := data.ADOa.fieldbyname('hgl').AsString;
              FRM_JY.DateTimePicker1.Date := data.ADOa.fieldbyname('jytime').AsDateTime;
              FRM_JY.edit6.Text := data.ADOa.fieldbyname('jyr').AsString;
              FRM_JY.ToolButton8.Enabled := true;
              FRM_JY.ToolButton9.Enabled := true;
              FRM_JY.ToolButton10.Enabled := true;
              FRM_JY.ToolButton11.Enabled := true;
            end
            else
            begin
              FRM_JY.edit1.Text := '';
              FRM_JY.combobox1.Text := '';
              FRM_JY.edit2.Text := '';
              FRM_JY.combobox2.Text := '';
              FRM_JY.edit3.Text := '';
              FRM_JY.edit4.Text := '';
              FRM_JY.edit5.Text := '';
              FRM_JY.DateTimePicker1.Date := now();
              FRM_JY.edit6.Text := '';
              FRM_JY.ToolButton8.Enabled := false;
              FRM_JY.ToolButton9.Enabled := false;
              FRM_JY.ToolButton10.Enabled := false;
              FRM_JY.ToolButton11.Enabled := false;
            end;
        end;
      end;
    
    
    end;
    
    procedure TFRM_JY_CX.BitBtn2Click(Sender: TObject);
    begin
      close;
    end;
    
    procedure TFRM_JY_CX.RadioButton1Click(Sender: TObject);
    begin
      combobox2.Text := '';
    end;
    
    procedure TFRM_JY_CX.RadioButton2Click(Sender: TObject);
    begin
      combobox1.Text := '';
    end;
    
    procedure TFRM_JY_CX.RadioButton3Click(Sender: TObject);
    begin
      combobox1.Text := '';
      combobox2.Text := '';
      DateTimePicker1.Date := now();
    end;
    
    end.
    

上一篇：MRJY.pas
下一篇：法律专业开题报告范文