units.pas

小型仓库管理系统

unit Units;

interface

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

type
  TfmS = class(TForm)
    Image1: TImage;
    lb1: TLabel;
    combA: TComboBox;
    edtB: TEdit;
    Memo1: TMemo;
    btnA: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    btnB: TBitBtn;
    btnC: TBitBtn;
    btnD: TBitBtn;
    SpeedButton1: TSpeedButton;
    RadioGroup1: TRadioGroup;
    rbtnA: TRadioButton;
    rbtnB: TRadioButton;
    img1: TImage;
    Label4: TLabel;
    edtC: TEdit;
    combB: TComboBox;
    procedure btnAClick(Sender: TObject);
    procedure btnBClick(Sender: TObject);
    procedure btnCClick(Sender: TObject);
    procedure btnDClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure rbtnAClick(Sender: TObject);
    procedure rbtnBClick(Sender: TObject);
    procedure edtAKeyPress(Sender: TObject; var Key: Char);
    procedure combASelect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmS: TfmS;

implementation

uses UnitMain, UnitDm;

{$R *.dfm}

procedure TfmS.btnAClick(Sender: TObject);
var a,b,c,d,s:string;
begin
   if Trim(combB.Text)<>'' then
   begin
     if combA.Text='材料'   then
      begin
       frDbm.dsets.Close;
       frDbm.dsets.CommandText:='select * from t_mlist where sno='+trim(combB.Text)+'';
       frDbm.dsets.Open;
       if frDbm.dsets.Fields[0].AsString<>'' then
         begin
           frDbm.dsets.Close;
           frDbm.dsets.CommandText:='select * from t_mstore where msno='+trim(combB.Text)+'';
           frDbm.dsets.Open;
          if frDbm.dsets.Fields[0].AsString='' THEN
             SHOWmessage('您查找的内容不存在！')
          else
           begin
            edtB.Text:=frDbm.dsets.Fields[1].AsString;
            edtC.Text:=frDbm.dsets.Fields[2].AsString;
            frDbm.dsets.Close;
            frDbm.dsets.CommandText:='select * from t_mlist where sno='+trim(combB.Text)+'';
            frDbm.dsets.Open;
            if frDbm.dsets.Fields[2].AsString<>'' then
              begin
                s:=frDbm.dsets.Fields[2].AsString;
                img1.Visible:=true;
                img1.Picture.LoadFromFile(s);
              end
            else showmessage('编号为'+trim(combB.Text)+'材料还未录入图片！');

            frDbm.dsets.Close;
            frDbm.dsets.CommandText:='select name from t_mlist where sno='+trim(combB.Text)+'';
            frDbm.dsets.Open;
            a:=frDbm.dsets.Fields[0].AsString;

            frDbm.dsets.Close;
            frDbm.dsets.CommandText:='select cno from t_storelist where sno='+trim(combB.Text)+'';
            frDbm.dsets.Open;
            b:=frDbm.dsets.Fields[0].AsString;

            frDbm.dsets.Close;
            frDbm.dsets.CommandText:='select name,tel from t_store where cno='+b+'';
            frDbm.dsets.Open;
            c:=frDbm.dsets.Fields[0].AsString;
            d:=frDbm.dsets.Fields[1].AsString;
            memo1.Lines.Add('材料编号为:'+trim(combB.Text));
            memo1.Lines.Add('材料名称为:'+a);
            memo1.Lines.Add('库存地点为:'+b+'号仓库');
            memo1.Lines.Add('仓库管理员为:'+c );
            memo1.Lines.Add('仓库电话为:');
            memo1.Lines.Add(d);
       end;
      end
     else  showmessage('不存在编号为'+trim(combB.Text)+'的材料,请重新输入！');
      end;

    if combA.Text='成品'   then
      begin
       frDbm.dsets.Close;
       frDbm.dsets.CommandText:='select * from t_glist where sno='+trim(combB.Text)+'';
       frDbm.dsets.Open;
       if frDbm.dsets.Fields[0].AsString<>'' then
         begin

          frDbm.dsets.Close;
          frDbm.dsets.CommandText:='select * from t_gstore where gsno='+trim(combB.Text)+'';
          frDbm.dsets.Open;
          if frDbm.dsets.Fields[0].AsString='' THEN
           SHOWmessage('您查找的内容不存在！')
          else
            begin
              edtB.Text:=frDbm.dsets.Fields[1].AsString;
              edtC.Text:=frDbm.dsets.Fields[2].AsString;
              frDbm.dsets.Close;
              frDbm.dsets.CommandText:='select * from t_glist where sno='+trim(combB.Text)+'';
              frDbm.dsets.Open;
              if frDbm.dsets.Fields[2].AsString<>'' then
                begin
                  s:=frDbm.dsets.Fields[2].AsString;
                  img1.Visible:=true;
                  img1.Picture.LoadFromFile(s);
                end
              else showmessage('编号为'+trim(combB.Text)+'材料还未录入图片！');

              frDbm.dsets.Close;
              frDbm.dsets.CommandText:='select name from t_glist where sno='+trim(combB.Text)+'';
              frDbm.dsets.Open;
              a:=frDbm.dsets.Fields[0].AsString;

              frDbm.dsets.Close;
              frDbm.dsets.CommandText:='select cno from t_storelist where sno='+trim(combB.Text)+'';
              frDbm.dsets.Open;
              b:=frDbm.dsets.Fields[0].AsString;

              frDbm.dsets.Close;
              frDbm.dsets.CommandText:='select name,tel from t_store where cno='+b+'';
              frDbm.dsets.Open;
              c:=frDbm.dsets.Fields[0].AsString;
              d:=frDbm.dsets.Fields[1].AsString;
              memo1.Lines.Add('成品编号为:'+trim(combB.Text));
              memo1.Lines.Add('成品名称为:'+a);
              memo1.Lines.Add('库存地点为:'+b+'号仓库');
              memo1.Lines.Add('仓库管理员为:'+c);
              memo1.Lines.Add('仓库电话为:');
              memo1.Lines.Add(d);
          end;
       end
       else  showmessage('不存在编号为'+trim(combB.Text)+'的成品,请重新输入！');
  end;
   if combA.Text=''  then
    showmessage('请选择查询类别!');
   end
 else showmessage('请输入查询编号!');
end;

procedure TfmS.btnBClick(Sender: TObject);
begin
if messagedlg('确实要修改物品编号为：'+trim(combB.Text)+'的库存吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
 begin
  if Trim(combB.Text)<>'' then
   begin
     if combA.Text='材料'   then
      begin
        if (trim(edtB.Text)<>'') AND
           (trim(edtC.Text)<>'' )then
          begin
           frDbm.Coms.CommandText:='update t_mstore set number ='
           +edtB.Text+'Where msno='''+combB.Text+'''';
           frDbm.Coms.Execute;
           frDbm.Coms.CommandText:='update t_mstore set Alarm ='
           +edtC.Text+'Where msno='''+combB.Text+'''';
           frDbm.Coms.Execute;
           SHOWmessage('库存数据修改成功！');
          end
        else showmessage('请输入新的库存数量,和警报数量！');
      end;

    if combA.Text='成品'   then
      begin
         if (trim(edtB.Text)<>'')  and
             (trim(edtC.Text)<>'')  then
          begin
            frDbm.Coms.CommandText:='update t_gstore set number ='
            +edtB.Text+'Where gsno='''+combB.Text+'''';
            frDbm.Coms.Execute;
            frDbm.Coms.CommandText:='update t_gstore set Alarm ='
            +edtC.Text+'Where gsno='''+combB.Text+'''';
            frDbm.Coms.Execute;
            SHOWmessage('库存数据修改成功！');
          end
         else showmessage('请输入新的库存数量');
      end;
   if combA.Text=''  then
    showmessage('请选择类别!');
   end
 else showmessage('请输入编号!');
end;
end;

procedure TfmS.btnCClick(Sender: TObject);
begin
  combB.Text:='';
  edtB.Text:='';
  edtC.Text:='';
  combA.Text:='';
  memo1.Text:='';
  img1.Visible:=false;
end;

procedure TfmS.btnDClick(Sender: TObject);
var  a,b,s1,s2:string;
begin
  if combA.Text='材料'   then
     begin
       memo1.Text:='';
       frDbm.qrys1.Close;
       frDbm.qrys1.SQL.Clear;
       frDbm.qrys1.SQL.Text:='select * from t_mstore';
       frDbm.qrys1.Open;
       memo1.Lines[0]:='存在库存警报的材料为：';
       while not frDbm.qrys1.Eof do
       begin
         s1:=trim(frDbm.qrys1.Fields[1].AsString);
         s2:=trim(frDbm.qrys1.Fields[2].AsString);
        if strtoint(s1)<strtoint(s2)  THEN
          begin
           a:=frDbm.qrys1.Fields[0].AsString;
           frDbm.qrys2.Close;
           frDbm.qrys2.SQL.Text:='select name from t_mlist where sno='+a+'';
           frDbm.qrys2.Open;
           b:=frDbm.qrys2.Fields[0].AsString;
           memo1.Lines.Add(b);
          end;
          frDbm.qrys1.Next;
       end;
     end;
  if combA.Text='成品'   then
     begin
       memo1.Text:='';
       frDbm.qrys1.Close;
       frDbm.qrys1.SQL.Clear;
       frDbm.qrys1.SQL.Text:='select * from t_gstore';
       frDbm.qrys1.Open;
       memo1.Lines[0]:='存在库存警报的成品为:';
       while not frDbm.qrys1.Eof do
       begin
        if frDbm.qrys1.Fields[1].AsInteger<frDbm.qrys1.Fields[2].AsInteger  THEN
          begin
           a:=frDbm.qrys1.Fields[0].AsString;
           frDbm.qrys2.Close;
           frDbm.qrys2.SQL.Text:='select name from t_glist where sno='+a+'';
           frDbm.qrys2.Open;
           b:=frDbm.qrys2.Fields[0].AsString;
           memo1.Lines.Add(b);
          end;
          frDbm.qrys1.Next;
       end;
     end;
    if combA.Text=''   then
    showmessage('请选择类别');
end;

procedure TfmS.SpeedButton1Click(Sender: TObject);
begin
  fmS.Close;
  fmMain.show;
end;

procedure TfmS.rbtnAClick(Sender: TObject);
begin
   btnA.Enabled:=true;
   btnB.Enabled:=false;
end;

procedure TfmS.rbtnBClick(Sender: TObject);
begin
   btnA.Enabled:=false;
   btnB.Enabled:=true;
end;

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

procedure TfmS.combASelect(Sender: TObject);
begin
      if combA.Text='材料' then
    begin
      combB.Items.Clear;
      frDbm.qryF.Close;
      frDbm.qryF.SQL.Clear;
      frDbm.qryF.SQL.Text:='select sno from t_mlist ';
      frDbm.qryF.Open;
      while not frDbm.qryF.Eof do
       begin
         combB.Items.Add(frDbm.qryF.Fields[0].asstring);
         frDbm.qryF.Next;
       end;
    end;
  if combA.Text='成品' then
    begin
      combB.Items.Clear;
      frDbm.qryF.Close;
      frDbm.qryF.SQL.Clear;
      frDbm.qryF.SQL.Text:='select sno from t_glist ';
      frDbm.qryF.Open;
      while not frDbm.qryF.Eof do
       begin
         combB.Items.Add(frDbm.qryF.Fields[0].asstring);
         frDbm.qryF.Next;
       end;
    end;
end;

end.