unit1.pas

这是用delphi开发的一个物资管理信息系统

unit unit1;

interface

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

type
  Tplace_addfrm = class(TForm)
    GroupBox2: TGroupBox;
    place_codelb: TLabel;
    pro_codelb: TLabel;
    area_namelb: TLabel;
    shelf_numlb: TLabel;
    floor_numlb: TLabel;
    line_numlb: TLabel;
    heightlb: TLabel;
    widthlb: TLabel;
    lengthlb: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    place_codeed: TEdit;
    shelf_numed: TEdit;
    heighted: TEdit;
    floor_numed: TEdit;
    widthed: TEdit;
    line_numed: TEdit;
    lengthed: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    UpDown5: TUpDown;
    pro_codeed: TComboBox;
    area_nameed: TComboBox;
    Image1: TImage;
    Label1: TLabel;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  place_addfrm: Tplace_addfrm;

implementation

{$R *.dfm}

procedure Tplace_addfrm.FormActivate(Sender: TObject);
  var
   s,m:string;
   i:integer;
begin
    with query1 do
 begin
 close;
 sql.Clear ;
 sql.Add('select max(place_code) as ss from place_info');
 open;
 end;
 if query1.FieldByName ('ss').Value =null then
  s:='0000001'
 else
 begin
 m:=trim(query1.fieldbyname('ss').Value );
  i:=strtoint(trim(copy(m,1,7)));
 if i<9then
 s:=s+'000000'+inttostr(i+1)
 else if i<99then
 s:=s+'00000'+inttostr(i+1)
 else if i<999 then
 s:=s+'0000'+inttostr(i+1)
 else if i<9999 then
 s:=s+'000'+inttostr(i+1)
 else if i<99999 then
 s:=s+'00'+inttostr(i+1)
 else if i<99999 then
 s:=s+'0'+inttostr(i+1)
 else
  s:=s+inttostr(i+1);
end;
  place_codeed.Text:=s;
end;

end.