mrtt_cx.pas

Delphi数据库开发系统例子

unit MRTT_CX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFRM_TT_CX = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    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_TT_CX: TFRM_TT_CX;

implementation
  uses DATA, MRTT;
{$R *.dfm}

procedure TFRM_TT_CX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox2.Clear;
  with database.ADO_tt do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_bdwxx');
    open;
  end;
  IF DATABASE.ADO_tt.RecordCount>0 THEN
  BEGIN
    while not database.ADO_tt.Eof do
    begin
      combobox1.Items.Add(Trim(database.ADO_tt.fieldbyname('bdwxx_mc').AsString));
      combobox2.Items.Add(Trim(database.ADO_tt.fieldbyname('bdwxx_frdb').AsString));
      database.ADO_tt.Next;
    end;
    database.ADO_tt.First;
  END;
end;

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

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

  if (s <> 'aa')and(s <> '') then
  begin
    with database.ADO_tt do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_bdwxx where '+p+'='+''''+s+'''');
      open;
    end;
    FRM_TT.edit1.Text := database.ADO_tt.fieldbyname('bdwxx_mc').AsString;
    FRM_TT.edit2.Text := database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString;
    FRM_TT.edit3.Text := database.ADO_tt.fieldbyname('bdwxx_yb').AsString;
    FRM_TT.edit4.Text := database.ADO_tt.fieldbyname('bdwxx_cz').AsString;
    FRM_TT.edit5.Text := database.ADO_tt.fieldbyname('bdwxx_frdb').AsString;
    FRM_TT.edit6.Text := database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString;
    FRM_TT.edit7.Text := database.ADO_tt.fieldbyname('bdwxx_khyh').AsString;
    FRM_TT.edit8.Text := database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString;
    FRM_TT.edit9.Text := database.ADO_tt.fieldbyname('bdwxx_wz').AsString;
    FRM_TT.edit10.Text := database.ADO_tt.fieldbyname('bdwxx_nsh').AsString;

  end
  else
  begin
    showmessage('查询条件不能为空。');
  end;

end;

procedure TFRM_TT_CX.BitBtn2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure TFRM_TT_CX.RadioButton1Click(Sender: TObject);
begin
  combobox2.Text := '';
end;

procedure TFRM_TT_CX.RadioButton2Click(Sender: TObject);
begin
  combobox1.Text := '';
end;

end.