depot_add_unit.pas

仓库管理信息系统 DELPHI代码作的

unit depot_add_unit;

interface

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

type
  Tdepot_add = class(TTEMPLETF)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    MIBtnOK: TMoveImgBtn;
    lbBtnOK: TLabelBtn;
    MIBtnExit: TMoveImgBtn;
    lbBtnExit: TLabelBtn;
    Edit4: TEdit;
    qry: TADOQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MIBtnExitClick(Sender: TObject);
    procedure MIBtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  depot_add: Tdepot_add;

implementation

uses depot_unit,data_unit;

{$R *.dfm}

procedure Tdepot_add.FormShow(Sender: TObject);
begin
  inherited;
  edit2.SetFocus ;
if edit4.Text<>'a' then
begin
//edit1.Text:=inttostr(strtoint(trim(depot.qry.fields[0].value))+1);
edit1.text:=depot.qry.fields[0].value;
edit2.text:=depot.qry.fields[1].value;
if depot.qry.fields[2].value<>null then
edit3.text:=depot.qry.fields[2].value;
end;

if edit4.text='a' then
begin
depot.qry.Last;
edit1.text:=inttostr(strtoint(trim(depot.qry.fields[0].value))+1);
end;

end;

procedure Tdepot_add.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;

end;

procedure Tdepot_add.MIBtnExitClick(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tdepot_add.MIBtnOKClick(Sender: TObject);
begin
  inherited;

if edit2.Text='' then
begin
application.MessageBox('仓库名称不能为空！','系统信息',mb_ok+mb_iconinformation);
end;

if edit4.text='a' then         //新加入仓库
begin

with qry do // 在storage库存表中增加该仓库
begin
close;
sql.Clear ;
sql.Add('alter table storage add '+''''+'trim(edit1.text)'+'''float');
execsql;
end;


with depot.qry do //在depot表中增加资料
begin
open;
append;
fields[0].value:=trim(edit1.text);
fields[1].value:=trim(edit2.text);
fields[2].value:=trim(edit3.text);
post;
close;
open;
end;
depot_add.Close;
end;

if edit4.text<>'a' then      //原仓库编辑
begin
with depot.qry do
begin
open;
edit;
fields[1].value:=edit2.text;
fields[2].value:=edit3.text;
post;
close;
open;
end;
depot_add.Close;
end;
end;

end.