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

Delphi数据库应用

最新推荐文章于 2023-08-27 21:07:12 发布

原创最新推荐文章于 2023-08-27 21:07:12 发布 · 410 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#平台 #interface #types #sql #数据库 #date

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    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;