companys.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

unit companys;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ExtDlgs, xpButton;

type
  Tcompany = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit11: TEdit;
    xpButton1: TxpButton;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    function checkisnull:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  company: Tcompany;

implementation

uses sldata,shareunit;

{$R *.DFM}

procedure Tcompany.FormPaint(Sender: TObject);
begin
sl_data.formonpaint(self);
end;

procedure Tcompany.FormCreate(Sender: TObject);
begin
edit1.text:=company_name;
edit3.text:=company_tel;
edit4.text:=company_fax;
edit7.text:=company_mail;
edit8.text:=company_web;
edit9.text:=company_adder;
edit11.text:=company_other;
end;

function Tcompany.checkisnull:boolean;
var s:string;
begin
s:='0000000';
if edit1.text<>'' then s[1]:='1';
if edit3.text<>'' then s[2]:='1';
if edit4.text<>'' then s[3]:='1';
if edit7.text<>'' then s[4]:='1';
if edit8.text<>'' then s[5]:='1';
if edit9.text<>'' then s[6]:='1';
if edit11.text<>'' then s[7]:='1';
result:=s='1111111';
end;

procedure Tcompany.xpButton1Click(Sender: TObject);
var msg:string;
begin
if checkisnull then
  begin
  with tstringlist.create do
   try
   add(makeparams('pname',edit1.text));
   add(makeparams('tel',edit3.text));
   add(makeparams('fax',edit4.text));
   add(makeparams('mail',edit7.text));
   add(makeparams('web',edit8.text));
   add(makeparams('adder',edit9.text));
   add(makeparams('other',edit11.text));
   msg:=text;
   finally
   free;
   end;
  if sl_data.sysother_model(public_modify,msg) then
     begin
     sl_data.getcompanyinfo;
     close;
     end;
  end else showmessage('请输入完整信息!');
end;

procedure Tcompany.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
  Begin
  If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     SelectNext(Sender as TWinControl,False,True)
  else
   SelectNext(Sender as TWinControl,True,True);
   Key := #0
  end;
end;

procedure Tcompany.Edit11KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then xpbutton1.onClick(nil);
end;

end.