unit14.pas

来自「服装制造业的库存管理系统,服装进销存进货,库存,出货等等.」· PAS 代码 · 共 84 行

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PrnDbgeh, DB, StdCtrls, Grids, DBGridEh;

type
  TForm14 = class(TForm)
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Button5: TButton;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    function QueryTabel(aSql: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation
uses data;
{$R *.dfm}

function TForm14.QueryTabel(aSql: string): Boolean;
begin
  with MyData do
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(aSql);
    ADOQuery1.Open;
  end;
end;

procedure TForm14.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm14.Button5Click(Sender: TObject);
begin
  QueryTabel('Select * From 原料库存资料');
end;

procedure TForm14.FormShow(Sender: TObject);
begin
  QueryTabel('Select * From 原料库存资料');
end;

procedure TForm14.Button2Click(Sender: TObject);
begin
    PrintDBGridEh1.Preview;
end;

procedure TForm14.Button3Click(Sender: TObject);
begin
    PrintDBGridEh1.Print;
end;

procedure TForm14.Button1Click(Sender: TObject);
begin
  if Trim(Edit1.Text )='' then
      QueryTabel('Select * From 原料库存资料')
  else
      QueryTabel('Select * From 原料库存资料 where '+combobox1.Text +'='''+edit1.Text+'''');
end;

end.