ckdcx.pas

来自「delphi开发的委托加工管理系统源代码」· PAS 代码 · 共 53 行

unit ckdcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIImagePanel, ExtCtrls, SUISideChannel, SUIDBCtrls, Grids,
  DBGridEh, SUIButton, bsSkinShellCtrls, DB, ADODB, scExcelExport;

type
  Tckdcx1 = class(TForm)
    suiSideChannel1: TsuiSideChannel;
    DBGridEh1: TDBGridEh;
    suiDBNavigator1: TsuiDBNavigator;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    scExcelExport1: TscExcelExport;
    bsSkinSaveDialog1: TbsSkinSaveDialog;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckdcx1: Tckdcx1;

implementation

uses adodm;

{$R *.dfm}

procedure Tckdcx1.suiButton4Click(Sender: TObject);
begin
close
end;

procedure Tckdcx1.suiButton1Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.CommandText:='select * from ckdata';
adodataset1.Active:=true;
end;

end.