createdb.pas

三层ERP系统 (SQL)

unit CreateDB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_C, ExtCtrls, StdCtrls, inifiles, DBClient, DB;

type
  TfrmCreateDB = class(TfrmBase_C)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    Label6: TLabel;
    Bevel2: TBevel;
    Label7: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    CDSisunique: TClientDataSet;
    tbnExit: TButton;
    tbnOK: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tbnExitClick(Sender: TObject);
    procedure tbnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCreateDB: TfrmCreateDB;

implementation

uses Global, DataProcess;

{$R *.dfm}

procedure TfrmCreateDB.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmCreateDB:=nil;
end;

procedure TfrmCreateDB.tbnExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmCreateDB.tbnOKClick(Sender: TObject);
var
  S:String;
  ini:Tinifile;
  cmdStr:String;
  cmdStr1:String;
  cmdStr2:String;
begin
  inherited;
  if edit1.Text='' then
    begin
      messagedlg('SQL祅魁