u_configure_database.pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Configure_DataBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons,u_public_define;

type
  TFrm_Configure_Database = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Configure_Database: TFrm_Configure_Database;

implementation
  uses u_card;
{$R *.dfm}

procedure TFrm_Configure_Database.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_Configure_Database.SpeedButton1Click(Sender: TObject);
 var
     RandomFile : file of Configrue_File;
      Str:string;
   begin
     with g_sys_data do
       begin
           System_Name:=edit1.Text;
           Company_Name:=edit2.Text;
           Server_Name:=edit3.Text;
           System_Num:=edit4.Text;
           System_Password:=edit5.Text;
           DataBase_Name:=edit6.Text;
           Message_Num:=edit7.Text;
           Message_Password:=edit8.Text;
       end;
     if data_test1  then
       begin
         application.MessageBox('配置成功','明日科技');
         g_bool_database:=true;
       end;
 {  str:= 'sys.ini';
   Assign(randomfile,str);
   rewrite(randomfile);
   write(randomfile,g_sys_data);
   closefile(randomfile);
  }


end;

end.