unoraclesetup.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit UnOracleSetup;

interface

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

type
  TOracle_frm = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Oracle_frm: TOracle_frm;

implementation

uses Undm, UnFuntion;

{$R *.dfm}

procedure TOracle_frm.FormCreate(Sender: TObject);
var
  str:string;
begin
  SetWindowPos(Handle,HWND_TOPMOST,left,Top,width,Height,0);
  try
  Readini('Oracle','Conn',str);
  if pos('|',str)>0 then
  begin
      edit1.Text:=copy(str,1,pos('|',str)-1);
      edit2.Text:=copy(str,pos('|',str)+1,length(str));
  end else begin
      SaveDay:=1;
      edit1.Text:='';edit2.Text:='1';
  end;
  except
  end;  

end;

procedure TOracle_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree; Oracle_frm:=nil;
end;

procedure TOracle_frm.BitBtn1Click(Sender: TObject);
begin  // Wirteini
  if Edit1.Text='' then
  begin
    Application.MessageBox('请输入服务名','提示',MB_OK+MB_ICONEXCLAMATION);
    Edit1.SetFocus;
    Exit;
  end;
  if Wirteini('Oracle','Conn',Edit1.Text+'|'+edit2.Text) then
  begin
    Application.MessageBox('文件保存成功,请重新启动程序!','提示',MB_OK+MB_ICONINFORMATION);Application.Terminate;
  end
  else
    Application.MessageBox('文件保存失败','错误',MB_OK+MB_ICONERROR);
  Close;
end;

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

procedure TOracle_frm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['1'..'9',#8,#13]) then key:=#0;
end;

end.