www.pudn.com > transfox.rar > createodbc.pas

unit createodbc; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls,DateUtils; 
 
type 
  TFm_createodbc = class(TForm) 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    ComboBox1: TComboBox; 
    Btn_SAVE: TButton; 
    Btn_close: TButton; 
    procedure Btn_SAVEClick(Sender: TObject); 
    procedure Btn_closeClick(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Fm_createodbc: TFm_createodbc; 
 
implementation 
 uses odbc; 
{$R *.dfm} 
 
procedure TFm_createodbc.Btn_SAVEClick(Sender: TObject); 
var myodbc:Todbc; 
begin 
    if (ComboBox1.ItemIndex=-1) or 
       (trim(Edit1.Text)='')    or 
       (trim(Edit2.Text)='') 
    then 
    begin 
      application.MessageBox('信息不足！','信息',32); 
      exit; 
    end; 
    try 
      myodbc:=Todbc.Create(self); 
      myodbc.CreateOdbc(strtoint(copy(ComboBox1.text,1,3)),edit1.text,edit2.text); 
    finally 
      myodbc.Free; 
      //application.MessageBox('ODBC创建成功！','信息',32); 
    end; 
 
end; 
 
procedure TFm_createodbc.Btn_closeClick(Sender: TObject); 
begin 
  self.close; 
end; 
 
procedure TFm_createodbc.FormShow(Sender: TObject); 
begin 
  edit1.Text:='sickodbc'; 
//  edit2.Text:='D:\YYBAGL\hmrs2003'; 
  edit2.Text:='D:\YYBAGL\hmrs'+inttostr(YearOf(now)); 
  ComboBox1.ItemIndex:=0; 
  Btn_SAVE.SetFocus; 
end; 
 
end.