mryzy_cx.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MRYZY_CX;

interface

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

type
  TFRM_YZY_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 RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YZY_CX: TFRM_YZY_CX;

implementation
  uses MR_DATA, MRYZY;
{$R *.dfm}

procedure TFRM_YZY_CX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox2.Clear;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
  if data.ADOa.RecordCount>0 then
  begin
    while not data.ADOa.Eof do
    begin
      combobox1.Items.Add(data.ADOa.fieldbyname('czyid').AsString);
      combobox2.Items.Add(data.ADOa.fieldbyname('czyname').AsString);
      data.ADOa.Next;
    end;
  end;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user');
    open;
  end;
end;

procedure TFRM_YZY_CX.BitBtn1Click(Sender: TObject);
var
  s,p : string;
  year,month,day : word;
begin
  p := 'aa';
  if RadioButton1.Checked = true then
  begin
    s := 'czyid';
    p := combobox1.Text;
  end;
  if RadioButton2.Checked = true then
  begin
    s := 'czyname';
    p := combobox2.Text;
  end;
  if (p = '')or(p = 'aa') then
  begin
    showmessage('查询条件不能为空。');
  end
  else
  begin
      with data.ADOa do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_user where '+s+'='+''''+p+'''');
        open;
      end;
      if data.ADOa.RecordCount>0 then
      begin
        FRM_YZY.edit1.Text := data.ADOa.fieldbyname('czyid').AsString;
        FRM_YZY.edit2.Text := data.ADOa.fieldbyname('czyname').AsString;
        FRM_YZY.edit3.Text := data.ADOa.fieldbyname('czymm').AsString;
        FRM_YZY.ToolButton8.Enabled := true;
        FRM_YZY.ToolButton9.Enabled := true;
        FRM_YZY.ToolButton10.Enabled := true;
        FRM_YZY.ToolButton11.Enabled := true;
      end
      else
      begin
        FRM_YZY.edit1.Text := '';
        FRM_YZY.edit2.Text := '';
        FRM_YZY.edit3.Text := '';
        FRM_YZY.ToolButton8.Enabled := false;
        FRM_YZY.ToolButton9.Enabled := false;
        FRM_YZY.ToolButton10.Enabled := false;
        FRM_YZY.ToolButton11.Enabled := false;
      end;
  end;


end;

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

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

procedure TFRM_YZY_CX.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.