receive_unit.~pas

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

unit receive_unit;

interface

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

type
  Treceive = class(TTEMPLETF)
    Panel1: TPanel;
    LabelBtn1: TLabelBtn;
    TradeImg1: TTradeImg;
    lbBtnOK: TLabelBtn;
    MIBtnOK: TMoveImgBtn;
    GroupBox1: TGroupBox;
    grid: TNewDBGrid;
    Label8: TLabel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    DataSource1: TDataSource;
    qry: TADOQuery;
    qryordinal: TStringField;
    qrygoods_id: TStringField;
    qrygoods_name: TStringField;
    Edit5: TEdit;
    DataSource2: TDataSource;
    qry_quit: TADOQuery;
    Button1: TButton;
    qryold_quantity: TFloatField;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    SummaryBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRShape1: TQRShape;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRExpr1: TQRExpr;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    lbBtnExit: TLabelBtn;
    MIBtnExit: TMoveImgBtn;
    QRLabel14: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    qryamount: TFloatField;
    procedure gridKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure qryBeforePost(DataSet: TDataSet);
    procedure TradeImg1Click(Sender: TObject);
    procedure gridExit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MIBtnOKClick(Sender: TObject);
    procedure MIBtnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  receive: Treceive;

implementation
uses data_unit, main_unit;

{$R *.dfm}

procedure Treceive.gridKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if (grid.SelectedIndex=1) and  (grid.SelectedField.Text='') then      //判断货物是否存在
  begin
  grid.SelectedIndex:=0;
  grid.SelectedField.Text:=''
  end;

    if (grid.SelectedField.Text<>'')  then
  begin
   if (Key =#13) then          //用enter代替tab键  (grid.SelectedIndex=1) and
    keybd_event(VK_TAB,0,0,0);
  end;
end;

procedure Treceive.FormShow(Sender: TObject);
var a:integer;
begin
  inherited;

   edit3.Text:=main_form.edit2.Text ;

 combobox1.Items.clear;     //添入仓库名
 with qry_quit do
 begin
   close;
   sql.Clear;
   sql.add('select * from depot');
   open;
   first;
   next;
 end;
 a:=qry_quit.RecordCount-1;
 {if qry_quit.RecordCount>0 then
   combobox1.text:=qry_quit.fields[1].asstring;
 repeat
   combobox1.Items.Add(qry_quit.fields[1].asstring);
 until qry_quit.findnext=false;
  }
 while a>0 do
 begin
  combobox1.Items.Add(trim(qry_quit.fields[1].asstring));
  qry_quit.Next ;
  a:=a-1;
 end;

 
with data.proc do   //生成一个新的单号
begin
parameters.ParamByName('@name').Value:='receive';  //领料
execproc;
edit5.text:=parameters.ParamByName('@value').Value
end;
//----------------------------------------------


data.old_quantity.Close;  //刷新数据库
data.old_quantity.Open;

with qry do
begin
close;
sql.Clear ;
sql.add('select * from receive_info where ordinal=:id');
parameters.ParamByName('id').value:=edit5.Text ;
open; 
end;

grid.SetFocus;
grid.SelectedIndex:=0;
end;

procedure Treceive.qryBeforePost(DataSet: TDataSet);
begin
  inherited;
qry.fieldbyname('ordinal').AsString:=edit5.text;
end;

procedure Treceive.TradeImg1Click(Sender: TObject);
begin
  inherited;
qrlabel6.Caption:=combobox1.Text ;
qrlabel9.Caption:=edit1.Text;
qrlabel11.Caption:=edit2.Text ;
qrlabel13.Caption:=edit3.Text ;
qrlabel17.Caption:=edit5.Text ;
quickrep1.Preview ;
end;

procedure Treceive.gridExit(Sender: TObject);
var value:real;
    id:integer;
begin
  inherited;
combobox1.SetFocus ;
if qry.RecordCount<>0 then
begin
qry.Edit;
qry.Post;
end;

value:=0;
with qry do             //统计总的件数
begin
first;
id:=qry.RecordCount;
while id>0 do
begin
value:=value+(qry.fields[2].value);
qry.next;
id:=id-1;
end;
label3.Caption:=floattostr(value);
end;

end;

procedure Treceive.Button1Click(Sender: TObject);
begin
  inherited;
combobox1.SetFocus ;
if qry.RecordCount<>0 then
begin
qry.Edit;
qry.Post;
end;

end;

procedure Treceive.MIBtnOKClick(Sender: TObject);
var i:integer;
    depot_id:string;
begin
  inherited;

if edit1.text='' then
begin
application.MessageBox('领料人不能为空！','系统提示',mb_ok+mb_iconinformation);
exit;
end;

TradeImg1Click(nil);

with qry_quit do
begin
close;
sql.Clear ;
sql.Add('select * from depot where depot_name=:id');
parameters.ParamByName('id').Value:=combobox1.Text;
open;
i:=strtoint(trim(fields[0].value));
end;

with qry_quit do  //总仓库减 领料仓加
begin
close;
sql.Clear ;
sql.Add('select * from storage');
open;
qry.First;
while not qry.Eof do    //领料的内容
begin
qry_quit.First;
while not qry_quit.Eof do
begin
if qry_quit.Fields[0].value=qry.Fields[1].Value then
begin
qry_quit.edit;
qry_quit.Fields[1].value:=(qry_quit.Fields[1].value)-(qry.Fields[2].Value); //总仓库减
qry_quit.Fields[i].value:=(qry_quit.Fields[i].value)+(qry.Fields[2].Value); //领料仓加   领料仓用参数i表示
post;
end;
qry_quit.Next ;
end;
qry.Next ;
end;
end;

with qry_quit do
begin
close;
sql.Clear ;
sql.Add('select * from depot where depot_name=:name');
parameters.ParamByName('name').Value:=combobox1.Text ;
open;
depot_id:=fields[0].Value ;
end;


with qry_quit do
begin
close;
sql.Clear ;
sql.Add('select * from receive');
open;
append;
fields[0].Value:=edit5.Text ;
fields[1].Value:=depot_id ;
fields[2].Value:=label3.Caption  ;
fields[3].Value:=date();
fields[4].Value:=edit1.Text ;
fields[5].Value:=edit2.Text ;
fields[6].Value:=edit3.Text  ;
fields[7].Value:=edit4.Text ;
fields[8].Value:=time();

post;
end;

combobox1.Text:='';
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;

application.MessageBox('操作完成！','系统提示',mb_ok+mb_iconinformation);
receive.Close;
end;

procedure Treceive.MIBtnExitClick(Sender: TObject);
var oldvalue:string;
begin
  inherited;
//操作未完成 单号减1--------------------------------------
with qry_quit do
begin
close;
sql.Clear ;
sql.Add('select value from usrordinal where name=:name');
parameters.ParamByName('name').Value:='receive';
open;
if recordcount<>0 then
begin
//edit;
//fieldByName('value').Value:='0'+inttostr(strtoint(fieldByName('value').Value)-1) ;
//post;
      oldvalue:=fields[0].AsString;
      Close;
      SQL.Clear;
      SQL.Add('update usrordinal set value=:value where name=''receive''');
      Parameters.ParamByName('value').Value:='0'+inttostr(strtoint(oldvalue)-1);
      ExecSQL;
end;
end;
//删除已经输入的内容-------------------------------
with qry_quit do
begin
close;
sql.Clear ;
sql.Add('delete from receive_info where ordinal=:id');
parameters.ParamByName('id').Value:=edit5.Text ;
execsql;
end;
//-------------------------------------------------
qry.Close;
label3.Caption:='';
combobox1.Clear ;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
close;
end;

end.