systools.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit SysTools;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ExtCtrls, Db, DBCtrls, Provider,
  DBClient, ADODB, ADOQry;

type
  TfrmSysTools = class(TForm)
    oPages: TPageControl;
    Panel2: TPanel;
    cmdExit: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    TabSheet5: TTabSheet;
    MemoSQL: TMemo;
    Panel1: TPanel;
    cmdOpenFile: TBitBtn;
    cmdExecSQL: TBitBtn;
    TabSheet3: TTabSheet;
    TabSheet6: TTabSheet;
    Label7: TLabel;
    Button4: TButton;
    Label9: TLabel;
    Button5: TButton;
    qrySys: TADOQry;
    qrySysDbName: TStringField;
    OpenDialog: TOpenDialog;
    qrySQL: TADOQry;
    Label8: TLabel;
    TabSheet2: TTabSheet;
    TabSheet4: TTabSheet;
    DataSource1: TDataSource;
    qrySession0: TADOQry;
    qrySession0ID: TIntegerField;
    qrySession0Date0: TDateTimeField;
    qrySession0Date1: TDateTimeField;
    qrySession0Memo: TStringField;
    DataSource2: TDataSource;
    qrySession1: TADOQry;
    qrySession1ID: TIntegerField;
    qrySession1Date0: TDateTimeField;
    qrySession1Date1: TDateTimeField;
    qrySession1Memo: TStringField;
    cboSession0: TDBLookupComboBox;
    cboSession1: TDBLookupComboBox;
    cmdDataBackup: TButton;
    Label6: TLabel;
    Label10: TLabel;
    cmdRestore: TButton;
    Label12: TLabel;
    Label13: TLabel;
    edBakFile: TEdit;
    edNewDb: TEdit;
    cmdSelBakFile: TButton;
    qryDevices: TADODataSet;
    qryDevicesLogicalName: TWideStringField;
    qryDevicesPhysicalName: TWideStringField;
    qryDevicesType: TWideStringField;
    rgClearOp: TRadioGroup;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    qrySession9: TADOQry;
    DataSource3: TDataSource;
    cboSession9: TDBLookupComboBox;
    StaticText3: TStaticText;
    qryClear0: TADOQry;
    qryClear1: TADOQry;
    qrySession9ID: TIntegerField;
    qrySession9Date0: TDateTimeField;
    qrySession9Date1: TDateTimeField;
    qrySession9Memo: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure cmdExecSQLClick(Sender: TObject);
    procedure cmdOpenFileClick(Sender: TObject);
    procedure cmdSelBakFileClick(Sender: TObject);
    procedure cmdRestoreClick(Sender: TObject);
    procedure cmdDataBackupClick(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysTools: TfrmSysTools;

implementation

uses SelfFunc, Main;

{$R *.DFM}

procedure TfrmSysTools.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmSysTools.Button4Click(Sender: TObject);
var tsDbName,tsFileName,tsSQL :string;
begin
	qrySys.Open;
    tsDbName :=Trim(qrySysDbName.Value);
    tsFileName :=frmMain.sAppPath +'\bak' +tsDbName +'.dat';
    tsSQL :=Format('BACKUP DATABASE [%s] TO DISK = ''%s'''
    	, [tsDbName, tsFileName]);
	try
    	qrySQL.SQL.Text :=tsSQL;
        qrySQL.ExecSQL;
		MsgBoxInfo('计誹畐称