registercompanyunit.pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit registercompanyunit;

interface

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

type
  Tfrm_registercompany = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    b_ok: TButton;
    b_cancel: TButton;
    procedure Edit3Exit(Sender: TObject);
  private
    { Private declarations }
     function isint(s:string):boolean;
    public
    { Public declarations }
    procedure registercompany;
  end;

var
  frm_registercompany: Tfrm_registercompany;

implementation

{$R *.dfm}

function tfrm_registercompany.isint(s:string):boolean;
var i:integer;
begin
 i:=1;
  while i<length(s) do
   begin
    if (ord(s[i])<48) or (ord(s[i])>57) then
     begin
      result:=false;
      exit;
     end;
     i:=i+1;
   end;
     result:=true;
end;
 procedure tfrm_registercompany.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 rewrite(f,1) else reset(f,1);
   blockwrite(f,s1,60);
   blockwrite(f,s2,100);
   blockwrite(f,s3,12);
   blockwrite(f,s4,28);
   closefile(f);
 end;
procedure Tfrm_registercompany.Edit3Exit(Sender: TObject);
begin
if (isint(edit3.Text)=false) or (length(edit3.Text)>12) then
 begin
  showmessage('请输入正确的电话号码');
  activecontrol:=edit3;
  exit;
 end;
end;

end.