unitwz.pas

小型仓库管理系统

unit UnitWZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, ExtDlgs, DBCtrls;

type
  TfmWZ = class(TForm)
    img1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    combA: TComboBox;
    edt1: TEdit;
    edt2: TEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    Label4: TLabel;
    sbtn1: TSpeedButton;
    opd1: TOpenDialog;
    img2: TImage;
    btn3: TBitBtn;
    Label5: TLabel;
    combB: TComboBox;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure btn3Click(Sender: TObject);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  fmWZ: TfmWZ;
  tpname:string;
implementation

uses UnitN, UnitDm;

{$R *.dfm}

procedure TfmWZ.btn1Click(Sender: TObject);
var s1,s2,s3,s4:string;
begin
  s1:=trim(edt1.Text);
  s2:=trim(edt2.Text);
  s4:=trim(combB.Text);
  s3:=tpname;
  if combA.Text='材料' then
     begin
       if (s1<>'')and
          (s2<>'') then
          begin
            frDbm.dsetWZ.Close;
            frDbm.dsetWZ.CommandText:='select * from t_mlist where sno='+s1+'';
            frDbm.dsetWZ.Open;
            if frDbm.dsetWZ.Fields[0].AsString='' then
                begin
                  frDbm.ComWZ.CommandText:='insert into t_mlist values('''+s1+''','''+s2+''','''+s3+''')';
                  frDbm.ComWZ.Execute;
                  frDbm.ComWZ.CommandText:='insert into t_mstore values('''+s1+''',0,0)';
                  frDbm.ComWZ.Execute;
                  frDbm.ComWZ.CommandText:='insert into t_storelist values('''+s1+''','''+s4+''')';
                  frDbm.ComWZ.Execute;
                  showmessage('新材料信息录入成功！');
                  img2.Picture:=nil;
                  edt1.Text:='';
                  edt2.Text:='';
                  combB.Text:='';
                end
            else
             showmessage('该成品编号已经被占用，请重新选择编号！');
          end
        else
          showmessage('输入完整的注册信息！');
     end;
  if combA.Text='成品' then
     begin
       if (s1<>'')and
          (s2<>'') then
          begin
            frDbm.dsetWZ.Close;
            frDbm.dsetWZ.CommandText:='select * from t_glist where sno='+s1+'';
            frDbm.dsetWZ.Open;
            if frDbm.dsetWZ.Fields[0].AsString='' then
                begin
                  frDbm.ComWZ.CommandText:='insert into t_glist values('''+s1+''','''+s2+''','''+s3+''')';
                  frDbm.ComWZ.Execute;
                  frDbm.ComWZ.CommandText:='insert into t_gstore values('''+s1+''',0,0)';
                  frDbm.ComWZ.Execute;
                  frDbm.ComWZ.CommandText:='insert into t_storelist values('''+s1+''','''+s4+''')';
                  frDbm.ComWZ.Execute;
                  showmessage('新成品信息录入成功！');
                  img2.Picture:=nil;
                  edt1.Text:='';
                  edt2.Text:='';
                  combB.Text:='';
                end
            else
             showmessage('该成品编号已经被占用，请重新选择编号！');
          end
       else
          showmessage('输入完整的注册信息！');
     end;
  if combA.Text='' then
     showmessage('请选择注册类别！');
end;

procedure TfmWZ.btn2Click(Sender: TObject);

begin
   if Opd1.Execute   then
    img2.Picture.LoadFromFile(Opd1.FileName);
    tpname:=Opd1.FileName ;
end;

procedure TfmWZ.sbtn1Click(Sender: TObject);
begin
  fmWZ.Close;
  fmN.Show;
end;

procedure TfmWZ.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in (['0'..'9'])) or (key=#8) then
     else
     key:=#0;
end;

procedure TfmWZ.btn3Click(Sender: TObject);
var s1:string;
begin
  s1:=trim(edt1.Text);
  if combA.Text='材料' then
     begin
       if trim(edt1.Text)<>''then
         begin
          if messagedlg('确实要删除编号为：'+trim(edt1.Text)+'的材料吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
            begin
               frDbm.dsetWZ.Close;
               frDbm.dsetWZ.CommandText:='select * from t_mlist where sno='+s1;
               frDbm.dsetWZ.Open;
               if frDbm.dsetWZ.Fields[1].AsString<>'' then
                begin
                 frDbm.comWZ.CommandText:='delete from t_mlist where sno='+s1;
                 frDbm.ComWZ.Execute;
                 frDbm.comWZ.CommandText:='delete from t_mstore where msno='+s1;
                 frDbm.ComWZ.Execute;
                 frDbm.comWZ.CommandText:='delete from t_storelist where sno='+s1;
                 frDbm.ComWZ.Execute;
                 showmessage('注销成功！');
                  edt1.Text:='';
                  edt2.Text:='';
                  combB.Text:='';
                end
               else showmessage('不存在编号为'+s1+'的材料,请重新输入！');
            end;
         end
       else showmessage('请输入要注销的物品编号');
     end;
  if combA.Text='成品' then
     begin
       if trim(edt1.Text)<>''then
         begin
          if messagedlg('确实要删除编号为：'+trim(edt1.Text)+'的成品吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
            begin
              frDbm.dsetWZ.Close;
              frDbm.dsetWZ.CommandText:='select * from t_glist where sno='+s1;
              frDbm.dsetWZ.Open;
              if frDbm.dsetWZ.Fields[1].AsString<>'' then
              begin
                frDbm.comWZ.CommandText:='delete from t_glist where sno='+s1;
                frDbm.ComWZ.Execute;
                frDbm.comWZ.CommandText:='delete from t_gstore where gsno='+s1;
                frDbm.ComWZ.Execute;
                frDbm.comWZ.CommandText:='delete from t_storelist where sno='+s1;
                frDbm.ComWZ.Execute;
                showmessage('注销成功！');
                edt1.Text:='';
                edt2.Text:='';
                combB.Text:='';
              end
             else showmessage('不存在编号为'+s1+'的成品,请重新输入！');
            end;
         end
       else showmessage('请输入要注销的物品编号');
     end;
   if trim(combA.Text)='' then
     showmessage('请选择注销类别！');
end;

procedure TfmWZ.edt2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;


procedure TfmWZ.FormActivate(Sender: TObject);
begin
  combB.Items.Clear;
  frDbm.qryG.Close;
  frDbm.qryG.SQL.Clear;
  frDbm.qryG.SQL.Text:='select * from t_store ';
  frDbm.qryG.Open;
  while not frDbm.qryG.Eof do
  begin
    combB.Items.Add(frDbm.qryG.Fields[0].asstring);
    frDbm.qryG.Next;
  end;
end;

end.