Delphi 三层框架开发 处事端开发

给与Delphi7+SQL2008

一、创建数据库和表

[sql]  

 

CREATE TABLE [dbo].[tb_Department](  

    [FKey] [uniqueidentifier] NOT NULL,  

    [FName] [varchar](50) NULL,  

    [FAge] [varchar](50) NULL,  

    [FSex] [varchar](50) NULL,  

    [FMobile] [varchar](50) NULL,  

    [FRemark] [varchar](200) NULL  

) ON [PRIMARY]  

二、写处事端

2.1 先创建一个application

在窗体中添加Label如图显示

[delphi]  

 

unit ufrmMain;  

  

interface  

  

uses  

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  

  Dialogs, StdCtrls;  

  

type  

  TfrmMain = class(TForm)  

    lbl1: TLabel;  

  private  

    { Private declarations }  

  public  

    { Public declarations }  

  end;  

  

var  

  frmMain: TfrmMain;  

  

implementation  

  

{$R *.dfm}  

  

end.  

2.2 File-New-Other 

点击OK  在弹出的对话框中  填写

名字本身按照需要 填写

此时生成2个单元 一个Project1_TLB 和 Unit2 单元

打开Project1_TLB 单元  按F12键

在弹出的对话框中

Name就是我们要的要领名称（按照本身需要填写）GetData 获取数据

新增参数  如下图 

 

再按不异的要领 添加PostData要领（生存数据）

最终功效如下图

添加后的最代码终功效

[delphi]  

 

unit Project1_TLB;  

  

// ************************************************************************ //  

// WARNING