mrcpcl_zcx.pas

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

unit MRCPCL_ZCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, Grids, DBGrids, ComCtrls;

type
  TFRM_CPCL_ZCX = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Datalb: TDataSource;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_CPCL_ZCX: TFRM_CPCL_ZCX;

implementation

uses MR_DATA, MRCPCL_DY;

{$R *.dfm}

procedure TFRM_CPCL_ZCX.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct cpmc from tb_cpcl');
    open;
  end;
  if data.ADOa.RecordCount>0 then
  begin
    while not data.adoa.Eof do
    begin
      combobox1.Items.Add(Trim(data.ADOa.fieldbyname('cpmc').AsString));
      data.ADOa.Next;
    end;
  end;
  with data.ADOa do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_cpcl');
    open;
  end;
  datalb.DataSet := data.ADOa;
end;

procedure TFRM_CPCL_ZCX.BitBtn1Click(Sender: TObject);
begin
  if combobox1.Text = '' then
  begin
    showmessage('请选择查询条件。');
  end
  else
  begin
    with data.ADOa do
    begin
      close;
      sql.Clear;
      sql.Add('select * from tb_cpcl where cpmc='+''''+combobox1.Text+'''');
      open;
    end;
  end;
end;

procedure TFRM_CPCL_ZCX.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_CPCL_ZCX.BitBtn2Click(Sender: TObject);
begin
  APPLICATION.CreateForm(TFRM_CPCL_DY, FRM_CPCL_DY);
  FRM_CPCL_DY.QuickRep1.PreviewModeless;
end;

end.