pro_add.pas

来自「这是用delphi开发的一个物资管理信息系统」· PAS 代码 · 共 101 行

unit pro_add;

interface

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

type
  Tpro_addfrm = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pro_addfrm: Tpro_addfrm;

implementation

{$R *.dfm}

procedure Tpro_addfrm.FormActivate(Sender: TObject);
 var
  s,m:string;
  i:integer;
begin
 edit2.SetFocus ;
 s:='P'+formatdatetime('yyyymmdd',now());
 with query1 do
 begin
 close;
 sql.Clear ;
 sql.Add('select max(pro_code) as ss from pro_info');
 open;
 end;
 if query1.FieldByName('ss').Value =null then
  s:=s+'001'
 else
 begin
 m:=trim(query1.fieldbyname('ss').Value );
  i:=strtoint(trim(copy(m,10,3)));
 if i<9then
 s:=s+'00'+inttostr(i+1)
 else if i<99then
 s:=s+'0'+inttostr(i+1)
 else
  s:=s+inttostr(i+1);
end;
  edit1.Text:=s;
end;

procedure Tpro_addfrm.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text )<>'')and (trim(edit2.Text )<>'')then
   begin
     with query1 do
      begin
       close;
       sql.Clear ;
       sql.Add('insert INTO pro_info(pro_code,pro_name) values(:a,:b )');
       parambyname('a').AsString :=trim(edit1.Text );
       parambyname('b').AsString :=trim(edit2.Text );
       execsql;
      end;
    application.MessageBox('保存成功.','提示',0+64);
    edit1.Clear ;
    edit2.Clear ;
    pro_addfrm.Close ;
end;
 end;
procedure Tpro_addfrm.BitBtn2Click(Sender: TObject);
begin
pro_addfrm.Close ;
end;

procedure Tpro_addfrm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   bitbtn1.SetFocus ;
end;

end.