registercompany.pas

来自「餐饮管理源代码 使用BDE Administrator在本地机器上添加一个P」· PAS 代码 · 共 61 行

unit registerCompany;

interface

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

type
  TfrmRegisterCompany = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    {过程声明}
    procedure registerCompany;
  end;

var
  frmRegisterCompany: TfrmRegisterCompany;

implementation

{$R *.dfm}

{ TfrmRegisterCompany }
{过程定义部分}
procedure TfrmRegisterCompany.registerCompany;
var
   f:file;
   s1,s2,s3,s4:string[160];
begin
   s1:=trim(edit1.Text);
   s2:=trim(edit2.Text);
   s3:=trim(edit3.Text);
   s4:=trim(edit4.Text);
   assignFile(f,'info.ini');               //关联配置文件
   if fileExists('info.ini')=false then    //配置文件不存在
   begin
      reWrite(f,1);                        //新建一个单位配置文件
   end
   else reSet(f,1);                        //有则打开
   blockWrite(f,s1,60);                    //将用户单位信息写入文件
   blockWrite(f,s2,100);
   blockWrite(f,s3,12);
   blockWrite(f,s4,28);
   closeFile(f);
end;

end.