u_dbsetting.pas

来自「此系统是一个专门为一个童装行业客户做的。。“产品”进销存系统」· PAS 代码 · 共 75 行

unit U_Dbsetting;

interface

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

type
  TF_Dbsetting = class(TF_base)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Eserver: TEdit;
    Label2: TLabel;
    Ename: TEdit;
    Label3: TLabel;
    Euserid: TEdit;
    Label4: TLabel;
    Epwd: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Dbsetting: TF_Dbsetting;

implementation

uses U_Function, U_DM;

{$R *.dfm}

procedure TF_Dbsetting.FormCreate(Sender: TObject);
begin
  inherited;
Eserver.Text:=Dbserver;
Ename.Text :=dbname;
Euserid.Text :=dbuserid;
Epwd.Text:=dbpassword;
end;

procedure TF_Dbsetting.BitBtn2Click(Sender: TObject);
begin
  inherited;
Close;
end;

procedure TF_Dbsetting.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Writetoini(EServer.Text ,Ename.Text ,EUserid.Text ,Epwd.Text );
  

    
end;

procedure TF_Dbsetting.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  application.Terminate;
  action:=cafree;

end;

end.