unitn.~pas

小型仓库管理系统

unit UnitN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, StdCtrls, Buttons, jpeg, ExtCtrls;

type
  TfmN = class(TForm)
    Image1: TImage;
    combA: TComboBox;
    Label1: TLabel;
    btn1: TBitBtn;
    sg1: TStringGrid;
    sbtn1: TSpeedButton;
    btn2: TBitBtn;
    procedure btn1Click(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmN: TfmN;

implementation

uses  UnitDm, UnitMain, UnitWZ;


{$R *.dfm}

procedure TfmN.btn1Click(Sender: TObject);
var a,b:string;
    i,j,k:integer;
begin
  for j:=0 to 20 do
    begin
      for k:=0 to 1 do
        begin
          sg1.Cells[k,j]:='';
        end;
    end;
  i:=1;
  sg1.Cells[0,0]:='编号';
  sg1.Cells[1,0]:='名称';
   if combA.Text='材料'   then
     begin
       frDbm.qryN.SQL.Clear;
       frDbm.qryN.SQL.Text:='select * from t_mlist';
       frDbm.qryN.Open;
       while not frDbm.qryN.Eof do
         begin
           a:=frDbm.qryN.Fields[0].AsString;
           b:=frDbm.qryN.Fields[1].AsString;
           sg1.Cells[0,i]:=a;
           sg1.Cells[1,i]:=b;
           i:=i+1;
           frDbm.qryN.Next;
         end;

     end;

     if combA.Text='成品'   then
     begin
       frDbm.qryN.SQL.Clear;
       frDbm.qryN.SQL.Text:='select * from t_glist';
       frDbm.qryN.Open;
       while not frDbm.qryN.Eof do
         begin
           a:=frDbm.qryN.Fields[0].AsString;
           b:=frDbm.qryN.Fields[1].AsString;
           sg1.Cells[0,i]:=a;
           sg1.Cells[1,i]:=b;
           i:=i+1;
           frDbm.qryN.Next;
         end;

     end;
end;

procedure TfmN.sbtn1Click(Sender: TObject);
begin
  fmMain.show;
  fmN.Close;
end;

procedure TfmN.btn2Click(Sender: TObject);
begin
  fmWZ.show;
  fmN.hide;  
end;

end.