frmbuildcards.pas

IC卡饭堂售饭管理系统源码,内有相关说明,

unit FrmBuildCardS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatComboBoxUnit,inifiles, TFlatEditUnit, TFlatButtonUnit;

type
  TFrmBuildCard = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FormCreate(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBuildCard: TFrmBuildCard;

implementation

{$R *.dfm}

procedure TFrmBuildCard.FormCreate(Sender: TObject); 
var ReadInfo:TIniFile;
    FileName:String;
begin
  FileName:=ExtractFilePath(Application.ExeName)+'CardInfo.ini';
  ReadInfo:=TIniFile.Create(FileName);
  with ReadInfo do begin
    FlatEdit1.Text:=ReadString('NewCard','DeviceNa','0001');
    FlatEdit2.Text:=ReadString('NewCard','DeviceNo','0010');
    FlatComboBox1.SelText:=ReadString('NewCard','Port','2');
    FlatComboBox2.SelText:=ReadString('NewCard','Speed','9600'); 
  end;
end;

procedure TFrmBuildCard.FlatButton1Click(Sender: TObject);
var WriteInfo:TIniFile;
    FileName:String;
begin
  FileName:=ExtractFilePath(Application.ExeName)+'CardInfo.ini';
  WriteInfo:=TIniFile.Create(FileName);
  with WriteInfo do begin
    WriteString('Newcard','DeviceNa',FlatEdit1.Text);
    WriteString('Newcard','DeviceNo',FlatEdit2.Text);
    WriteString('NewCard','Port',FlatComboBox1.Text);
    WriteString('NewCard','Speed',FlatComboBox2.Text);     
  end;
  self.Release;
end;

procedure TFrmBuildCard.FlatButton2Click(Sender: TObject);
begin
  self.Release;
end;

end.