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;';
ConnStr = 'Provider=%s;Data Provider=%s;Data Source=%s';
mystr1='Provider=%s;Data Provider= %s;Data Source= %s;';
myProvider='msdatashape.1';
mydataProvider='Microsoft.jet.oledb.4.0';
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;
Form1.adoconnection1.Connected:=false;
  if not Form1.adoconnection1.connected then
  begin
    Form1.adoconnection1.ConnectionString:=format(mystr1,
    [myProvider,mydataprovider,'数据库.mdb']);
        Form1.adoconnection1.GetTableNames(Form1.ComboBox1.Items);
    Form1.ComboBox1.Text:=Form1.ComboBox1.Items.Strings[0];
    Form1.adotable1.tablename:=Form1.ComboBox1.Items.Strings[0];
    Form1.adoconnection1.Connected:=true;
    Form1.adotable1.Active:=true;
    end;
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.