storage_unit.~pas

一个很不错的仓库管理系统,能容进各种软件中去,

unit storage_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TEMPLETFORM, StdCtrls, Grids, DBGrids, DB, ADODB, Menus,
  ComCtrls, ToolWin, ExtCtrls, NewDBGrid, LabelButton, MoveImageButton;

type
  Tstorage = class(TTEMPLETF)
    DataSource1: TDataSource;
    qry: TADOQuery;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    MIBtnOK: TMoveImgBtn;
    lbBtnOK: TLabelBtn;
    Label1: TLabel;
    NewDBGrid1: TNewDBGrid;
    qrygoods_id: TStringField;
    qryName: TStringField;
    qryDSDesigner1: TIntegerField;
    qryDSDesigner2: TIntegerField;
    qryDSDesigner3: TIntegerField;
    qryDSDesigner4: TIntegerField;
    qryDSDesigner5: TIntegerField;
    qryDSDesigner6: TIntegerField;
    qry1: TADOQuery;
    DataSource2: TDataSource;
    qryPrice: TBCDField;
    procedure FormShow(Sender: TObject);
    procedure MIBtnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  storage: Tstorage;

implementation
uses data_unit;
{$R *.dfm}

procedure Tstorage.FormShow(Sender: TObject);
//var depot1,depot2,depot3,depot4,depot5,depot6:string
type data=array[1..6] of string ;
var a:data;
    i:integer;
begin
  inherited;
i:=1;
with qry1 do
begin
close;
sql.Clear ;
sql.Add('select * from depot order by depot_id');
open;
first;
while not eof do
begin
a[i]:=fields[1].Value ;
i:=i+1;
next;
end;        
newdbgrid1.Columns[3].Title.caption:=trim(a[1]);
newdbgrid1.Columns[3].Width:=64;
newdbgrid1.Columns[3].Title.alignment:=tacenter;

newdbgrid1.Columns[4].Title.caption:=trim(a[2]);
newdbgrid1.Columns[4].Width:=64;
newdbgrid1.Columns[4].Title.alignment:=tacenter;

newdbgrid1.Columns[5].Title.caption:=trim(a[3]);
newdbgrid1.Columns[5].Width:=64;
newdbgrid1.Columns[5].Title.alignment:=tacenter;

newdbgrid1.Columns[6].Title.caption:=trim(a[4]);
newdbgrid1.Columns[6].Width:=64;
newdbgrid1.Columns[6].Title.alignment:=tacenter;

newdbgrid1.Columns[7].Title.caption:=trim(a[5]);
newdbgrid1.Columns[7].Width:=64;
newdbgrid1.Columns[7].Title.alignment:=tacenter;

newdbgrid1.Columns[8].Title.caption:=trim(a[6]);
newdbgrid1.Columns[8].Width:=64;
newdbgrid1.Columns[8].Title.alignment:=tacenter;
end;
qry.open;
end;

procedure Tstorage.MIBtnOKClick(Sender: TObject);
begin
  inherited;
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from v_storage where goods_id=:id');
parameters.ParamByName('id').Value:=edit1.Text;
open;
if (recordcount=0) and (edit1.text<>'') then
begin
application.MessageBox('没有找到此商品','系统信息',mb_ok+mb_iconinformation);
end;
end;

if edit1.text='' then
begin
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from v_storage order by goods_id');
open;
end;
end;
end;

procedure Tstorage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
 qry.Close;
end;

procedure Tstorage.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if key=#13 then
begin
MIBtnOKClick(nil);
end;
end;

end.