createtable.~pas

退休资料查询!我公司离退老干部数据管理!基于ACCESS数据库,提供了一个数据库压缩的源码和导出为EXCEL功能!

unit CreateTable;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, StdCtrls, SUIEdit, ExtCtrls, SUIForm, ADODB;

type
  TForm3 = class(TForm)
    suiForm1: TsuiForm;
    suiEdit1: TsuiEdit;
    suiButton1: TsuiButton;
    SuiEdit2: TsuiEdit;
    suiButton2: TsuiButton;
    procedure SetupTable(sender:tobject);
    procedure suiButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses   Main;
{$R *.dfm}

procedure TForm3.SetupTable(sender:tobject);
Var
adocon1:TADOConnection;
strSQL:string;
Const
SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
+'Jet OLEDB:Database Password=%s;';
begin
if SuiEdit1.Text<>'' then
begin
adocon1:=TADOConnection.create(self);                                                    //myaccess
adocon1.ConnectionString:=format(SConnectionString,[ExtractFilePath(application.ExeName)+suiEdit2.text,'']);
strsql:='Create table '+suiEdit1.text+'('+
'序号 counter PRIMARY KEY,'+
'姓名 char(10),'+
'性别 char(10),'+
'民族 char(10),'+
'身份证号 char(20),'+
'电话 char(15),'+
'家庭住址 char(40),'+
'退休时间 char(30),'+
'月退休养老金 char(30),'+
'身体状况 char(15),'+
'亲属姓名 char(10),'+
'亲属性别 char(20),'+
'关系 char(30),'+
'工作单位 char(15),'+
'亲属电话 char(10),'+
'备注 char(255))';
adocon1.Execute(strsql);
adocon1.close;
adocon1.free;
Form3.Hide;
end;
end;

procedure TForm3.suiButton2Click(Sender: TObject);
begin
Form3.Hide;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
SetWindowPos(FORM3.Handle,HWND_TOPMOST,FORM3.Left,FORM3.Top,
             FORM3.Width,FORM3.Height,0);
end;

end.