manufacturer_add_unit.~pas

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

unit manufacturer_add_unit;

interface

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

type
  Tmanufacturer_add = class(TTEMPLETF)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    lbBtnOK: TLabelBtn;
    MIBtnOK: TMoveImgBtn;
    lbBtnExit: TLabelBtn;
    MIBtnExit: TMoveImgBtn;
    Edit8: TEdit;
    procedure MIBtnExitClick(Sender: TObject);
    procedure MIBtnOKClick(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  manufacturer_add: Tmanufacturer_add;

implementation
uses manufacturer_unit;

{$R *.dfm}

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

procedure Tmanufacturer_add.MIBtnOKClick(Sender: TObject);
begin
  inherited;
if edit1.Text='' then
begin
application.MessageBox('供应商号不能为空！','系统信息',mb_ok+mb_iconinformation);
end;

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

if edit8.Text='a' then
begin
with manufacturer.qry do
begin
open;
append;
fields[0].Value:=edit1.Text;
fields[1].Value:=edit2.Text;
fields[2].Value:=edit3.Text;
fields[3].Value:=edit4.Text;
fields[4].Value:=edit5.Text;
fields[5].Value:=edit6.Text;
fields[6].Value:=edit7.Text;
try
post;
except
  application.messagebox('供应商号不能重复！','系统信息',mb_ok+mb_iconinformation);
end;
close;
open;
end;
edit8.Clear ;

manufacturer_add.Close;
exit;
end;

if edit8.Text<>'a' then
begin
with manufacturer.qry do
begin
open;
edit;
fields[0].Value:=edit1.Text;
fields[1].Value:=edit2.Text;
fields[2].Value:=edit3.Text;
fields[3].Value:=edit4.Text;
fields[4].Value:=edit5.Text;
fields[5].Value:=edit6.Text;
fields[6].Value:=edit7.Text;
post;   
close;
open;
end;
edit8.Clear ;

manufacturer_add.Close;
exit;
end;

end;

procedure Tmanufacturer_add.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if not (key in ['0'..'9',#8,#13,#46]) then
  begin
    key:=#0;
    beep;
  end;
end;

procedure Tmanufacturer_add.FormShow(Sender: TObject);
begin
  inherited;

if edit8.text<>'a' then
begin
manufacturer_add.Edit1.Text:=trim(manufacturer.qry.Fields[0].Value);
manufacturer_add.Edit2.Text:=trim(manufacturer.qry.Fields[1].Value);
manufacturer_add.Edit3.Text:=trim(manufacturer.qry.Fields[2].Value);
manufacturer_add.Edit4.Text:=trim(manufacturer.qry.Fields[3].Value);
manufacturer_add.Edit5.Text:=trim(manufacturer.qry.Fields[4].Value);
manufacturer_add.Edit6.Text:=trim(manufacturer.qry.Fields[5].Value);
manufacturer_add.Edit7.Text:=trim(manufacturer.qry.Fields[6].Value);
end;
end;

procedure Tmanufacturer_add.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
edit1.Clear ;
edit2.Clear ;
edit3.Clear ;
edit4.Clear ;
edit5.Clear ;
edit6.Clear ;
edit7.Clear ;
edit8.Clear ;
end;

end.