unitgy.pas

小型仓库管理系统

unit UnitGY;

interface

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

type
  TfmGY = class(TForm)
    Image1: TImage;
    sbtn1: TSpeedButton;
    Label5: TLabel;
    LbB: TLabel;
    Label1: TLabel;
    edt2: TEdit;
    Label3: TLabel;
    edt4: TEdit;
    Label4: TLabel;
    edt5: TEdit;
    Label2: TLabel;
    edt3: TEdit;
    btn4: TBitBtn;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    comb1: TComboBox;
    procedure sbtn1Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
    procedure edt4KeyPress(Sender: TObject; var Key: Char);
    procedure edt5KeyPress(Sender: TObject; var Key: Char);
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmGY: TfmGY;

implementation

uses UnitMain, UnitDm;

{$R *.dfm}

procedure TfmGY.sbtn1Click(Sender: TObject);
begin
   fmGY.Close;
  fmMain.show;
end;

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

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

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

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

procedure TfmGY.btn4Click(Sender: TObject);
var s1:string;
begin
  s1:=trim(comb1.Text);
  if ( s1<>'') then
       begin
         frDbm.dsetGY.Close;
         frDbm.dsetGY.CommandText:='select * from t_Suppliers where sno='+s1;
         frDbm.dsetGY.Open;
         if frDbm.dsetGY.Fields[0].AsString<>'' then
           begin
             edt2.Text:=frDbm.dsetGY.Fields[1].AsString;
             edt3.Text:=frDbm.dsetGY.Fields[2].AsString;
             edt4.Text:=frDbm.dsetGY.Fields[3].AsString;
             edt5.Text:=frDbm.dsetGY.Fields[4].AsString;
           end
         else showmessage('没有编号为'+s1+'的相关信息！');
       end
   else showmessage('请输入要查询的供应商编号！');
end;

procedure TfmGY.btn1Click(Sender: TObject);
var s1,s2,s3,s4,s5:string;
begin
   s1:=trim(comb1.Text);
  s2:=trim(edt2.Text);
  s3:=trim(edt3.Text);
  s4:=trim(edt4.Text);
  s5:=trim(edt5.Text);
   if ( s1<>'')and
      ( s2<>'') then
       begin
         frDbm.dsetGY.Close;
         frDbm.dsetGY.CommandText:='select * from t_Suppliers where sno='+s1;
         frDbm.dsetGY.Open;
         if frDbm.dsetGY.Fields[0].AsString='' then
         begin
           with   frDbm.comGY1   do
             begin
               frDbm.comGY1.CommandText:='SuppliersAdd';
               Parameters.Refresh;
               Parameters.ParamByName('@sno').Value:=s1;
               Parameters.ParamByName('@name').Value:=s2;
               Parameters.ParamByName('@adress').Value:=s3;
               Parameters.ParamByName('@call').Value:=s4;
               Parameters.ParamByName('@tel').Value:=s5;
               frDbm.comGY1.Execute;
               showmessage('新供应商信息添加成功！');
             end;
         end
         else showmessage('数据库中已经存在编号为'+s1+'的供应商，请重新输入！');
      end
   else showmessage('供应商编号和名称不能为空，请重新输入！');
end;

procedure TfmGY.btn2Click(Sender: TObject);
var s1:string;
begin
   s1:=trim(comb1.Text);
     begin
       if s1<>'' then
          begin
           if messagedlg('确实要删除报废号为：'+s1+'的记录吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
            begin
             frDbm.dsetGY.Close;
             frDbm.dsetGY.CommandText:='select * from t_Suppliers where sno='+s1;
             frDbm.dsetGY.Open;
             if frDbm.dsetGY.Fields[1].AsString<>'' then
              begin
                frDbm.comGY2.CommandText:='delete from t_Suppliers where sno='+s1;
                frDbm.ComGY2.Execute;
                showmessage('帐户注销成功！');
              end
             else showmessage('不存在编号号为'+s1+'的供应商,请重新输入！');
           end;
         end
       else showmessage('请输入要注销的供应商编号！');
    end;
end;

procedure TfmGY.btn3Click(Sender: TObject);
begin
  comb1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
end;

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

end.