建立双平台运行的应用程序

    program PWin_Linix;    uses      QForms,      UWin_Linix in ' UWin_Linix.pas' {Form1};     {$R *.res}    begin      Application.Initialize;      Application.CreateForm(TForm1, Form1);      Application.Run;    end.    unit UWin_Linix;    interface    uses      SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,      QStdCtrls, DBXpress, FMTBcd, SqlExpr, DB, QGrids, QDBGrids,       QDBCtrls,QButtons, Provider, DBClient, QExtCtrls;    type    TForm1 = class(TForm)    DBGrid1: TDBGrid;    SQLConnection1: TSQLConnection;    //指定联接到Interbase的连接组件    SQLDataSet1: TSQLDataSet;    //获取客户信息的数据集组件    SQLQuery1: TSQLQuery;    //获取雇员信息的查询组件    DataSource1: TDataSource;    ClientDataSet1: TClientDataSet;    DataSetProvider1: TDataSetProvider;    //指定数据集提供者组件，以确定数据的来源    DBNavigator1: TDBNavigator;    Label1: TLabel;    GuyuanBtn: TSpeedButton;    KehuBtn: TSpeedButton;    //下面是查询组件和数据集组件使用的字段，缺省时为组件名+字段名    SQLQuery1PHONE_EXT: TStringField;    SQLQuery1HIRE_DATE: TSQLTimeStampField;    SQLQuery1EMP_NO: TSmallintField;    SQLQuery1FIRST_NAME: TStringField;    SQLQuery1LAST_NAME: TStringField;    SQLQuery1DEPT_NO: TStringField;    SQLDataSet1CONTACT_LAST: TStringField;    SQLDataSet1PHONE_NO: TStringField;    SQLQuery1JOB_CODE: TStringField;    SQLQuery1JOB_GRADE: TSmallintField;    SQLQuery1JOB_COUNTRY: TStringField;    SQLDataSet1STATE_PROVINCE: TStringField;    SQLDataSet1CONTACT_FIRST: TStringField;    SQLDataSet1ADDRESS_LINE1: TStringField;    SQLDataSet1COUNTRY: TStringField;    SQLDataSet1POSTAL_CODE: TStringField;    SQLQuery1SALARY: TFMTBCDField;    SQLQuery1FULL_NAME: TStringField;    SQLDataSet1CUST_NO: TIntegerField;    SQLDataSet1CUSTOMER: TStringField;    SQLDataSet1ADDRESS_LINE2: TStringField;    SQLDataSet1CITY: TStringField;    SQLDataSet1ON_HOLD: TStringField;    procedure KehuBtnClick(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure GuyuanBtnClick(Sender: TObject);    private      { Private declarations }    public      { Public declarations }    end;    var      Form1: TForm1;      implementation   {$R *.xfm}    procedure TForm1.KehuBtnClick(Sender: TObject);    begin      / /显示客户信息按钮过程是将数据集提供者的数据来源      //切换到数据集组件，并激活客户数据集组件      ClientDataSet1.Active:=False;      DataSetProvider1.DataSet:=SQLDataSet1;      ClientDataSet1.Active:=True;    end;    end.    procedure TForm1.FormCreate(Sender: TObject);    begin      //在建立窗体时，设置SQL数据集的命令类型、命令内容(此处为表名)      SQLDataSet1.CommandType:=ctTable;      SQLDataSet1.CommandText:='customer';      SQLDataSet1.SQLConnection:=SQLConnection1;      //设置联结数据库的连接组件，      SQLDataSet1.Active:=True;      //激活SQL数据集和客户数据集组件      ClientDataSet1.Active:=True;    end;    procedure TForm1.GuyuanBtnClick(Sender: TObject);    begin      //显示雇员信息按钮过程是将数据集提供者的数据来源      //切换到查询组件，并激活客户数据集组件      ClientDataSet1.Active:=False;      DataSetProvider1.DataSet:=SQLQuery1;      ClientDataSet1.Active:=True;    end;