penmode_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit penmode_pas;

interface

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

type
  Tpenmode = class(TForm)
    GroupBox1: TGroupBox;
    name2: TRadioButton;
    name1: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure name1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure name2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var _path,_name:string;
  penmode: Tpenmode;
implementation
 uses FileCtrl,IniFiles,menu,password_unit ;
{$R *.DFM}

procedure Tpenmode.BitBtn1Click(Sender: TObject);
var inif:TIniFile;
  ls:string;
begin
if  (name1.Checked=false) and (name2.Checked =false) then
begin
Application.MessageBox('請選擇巡更棒類型！','消息',MB_ICONINFORMATION);
self.tag:=0;
end
else
  begin
   // getdir(0,path);
   // name:=path+'\hdxgxt.ini';
  if name1.Checked then
  ls:=name1.Caption
  else
  ls:=name2.Caption ;
  if Application.MessageBox(Pchar('您當前選擇的是'+ls+',設置正確嗎？'),'消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
  begin
    inif:=TInifile.Create(_name);
    if name1.Checked=true then
      begin
       inif.WriteString('penmode','mode','0');
       inif.WriteString('penmode','modi','1');
       inif.WriteString('com_baud','type','1'); //接触 19200
      end
      else
      begin
      inif.WriteString('penmode','mode','1');
       inif.WriteString('penmode','modi','1');
      inif.WriteString('com_baud','type','0');//感应  2400
      end;
    inif.Free;
    self.Hide ;
    self.tag:=1;
    MainForm.show;
end;
end;
end;

procedure Tpenmode.FormShow(Sender: TObject);
var
s:string;
temp:string;
inif:TIniFile;
begin
left:=round((screen.Width-Width)/2);
top:=round((screen.height-self.height)/2);
//_name:=ExtractFileDir(APPLICATION.EXENAME)+'\hdxgxt.ini';
_name:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
if not fileexists(_name) then
_name:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
else _name:=extractfiledir(application.exename)+'\hdxgxt.ini';
inif:=TInifile.Create(_name);
s:=inif.ReadString('penmode','mode',temp);
if s='0'  then
name1.Checked:=true;
if s='1' then
name2.checked:=true;
name2.SetFocus ;
end;

procedure Tpenmode.BitBtn2Click(Sender: TObject);
begin
self.tag:=1;
application.Terminate;
close;
end;

procedure Tpenmode.name1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
BitBtn1Click(self);
end;

procedure Tpenmode.name2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
BitBtn1Click(self);
end;

end.