comunit.pas

完整的ic卡管理软件

unit comUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm, bsSkinBoxCtrls, StdCtrls, Mask,IniFiles,
  ComCtrls, bsSkinTabs;

type
  TcomForm = class(TForm)
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinComboBox2: TbsSkinComboBox;
    bsSkinComboBox3: TbsSkinComboBox;
    bsSkinComboBox4: TbsSkinComboBox;
    bsSkinComboBox5: TbsSkinComboBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  comForm: TcomForm;
  procedure FillForm();
  procedure ReadConfig();
  procedure WriteConfig();  //写

implementation
uses
 datamodel,mainUnit;

{$R *.dfm}

procedure TcomForm.bsSkinButton2Click(Sender: TObject);  //保存端口信息
begin
    Port := bsSkinComboBox1.Text;
    Speed:=bsSkinComboBox2.Text;
    DataBit:=bsSkinComboBox3.Text;
    CheckBit:=bsSkinComboBox4.Text;
    StopBit:=bsSkinComboBox5.Text;
    //写入配置文件
    WriteConfig();
    close;
end;
procedure FillForm(); //自动填充页面中的Edit等的值
begin

  with comForm.bsSkinComboBox1.Items do
  begin
      clear;
      Add('COM1');
      Add('COM2');
      Add('COM3');
      Add('COM4');
  end;

  with comform.bsSkinComboBox2.Items do
  begin
      Clear;
      Add('110');
      Add('300');
      Add('600');
      Add('1200');
      Add('2400');
      Add('4800');
      Add('9600');
      Add('14400');
      Add('19200');
      Add('28800');
      Add('38400');
      Add('56000');
      Add('115200');
      Add('12800');
      Add('25600');
      Add('38400');
  end;

  with comform.bsSkinComboBox3.Items do
  begin
      Add('4');
      Add('5');
      Add('6');
      Add('7');
      Add('8');
  end;

  with comform.bsSkinComboBox4.Items do
  begin
      Add('Even');
      Add('Odd');
      Add('None');
      Add('Mark');
      Add('Space');
  end;

  with comform.bsSkinComboBox5.Items do
  begin
      Add('1');
      Add('1.5');
      Add('2');
  end;
end;
procedure ReadConfig(); //读
var
    mIni:TIniFile;
begin
    mIni := TIniFile.Create(ExtractFilePath(paramstr(0))+'CardConfig.ini');
    try
        Port :=mIni.ReadString('comport','Port','COM1');
        Speed := mIni.ReadString('comport','Speed','9600');
        DataBit := mIni.ReadString('comport','DataBit','8');
        CheckBit := mIni.ReadString('comport','CheckBit','None');
        StopBit := mIni.ReadString('comport','StopBit','1');
    finally
        mIni.Free;
    end;
end;

procedure WriteConfig();  //写
var
    mIni:TIniFile;
begin
    mIni := TIniFile.Create(ExtractFilePath(paramstr(0))+'CardConfig.ini');
    try
        mIni.WriteString('comport','Port',Port);
        mIni.WriteString('comport','Speed',Speed);
        mIni.WriteString('comport','DataBit',DataBit);
        mIni.WriteString('comport','CheckBit',CheckBit);
        mIni.WriteString('comport','StopBit',StopBit);
    finally
        mIni.Free;
    end;
end;



procedure TcomForm.FormCreate(Sender: TObject);
var
i:integer;
begin
  FillForm();   //调用1
  ReadConfig;   //调用读
    
    bsSkinComboBox1.ItemIndex := -1;
   bsSkinComboBox1.Text := '';
    for i := 0 to bsSkinComboBox1.Items.Count-1 do
    begin
        if bsSkinComboBox1.Items[0] = Port then
        begin
            bsSkinComboBox1.ItemIndex := i;
            break;
        end;
    end;

    bsSkinComboBox2.ItemIndex := -1;
     bsSkinComboBox2.Text := '';
    for i:= 0 to  bsSkinComboBox2.Items.Count - 1 do
    begin
        if  bsSkinComboBox2.Items[i] = speed then
        begin
             bsSkinComboBox2.ItemIndex := i;
            Break;
        end;
    end;

     bsSkinComboBox3.ItemIndex := -1;
   bsSkinComboBox3.Text := '';
    for i := 0 to bsSkinComboBox3.Items.Count - 1 do
    begin
        if bsSkinComboBox3.Items[i]= DataBit then
        begin
            bsSkinComboBox3.ItemIndex := i;
            break;
        end;
    end;

    bsSkinComboBox4.ItemIndex := -1;
    bsSkinComboBox4.Text := '';
    for i := 0 to bsSkinComboBox4.Items.Count - 1 do
    begin
        if bsSkinComboBox4.Items[i]= CheckBit then
        begin
            bsSkinComboBox4.ItemIndex := i;
            break;
        end;
    end;

   bsSkinComboBox5.ItemIndex := -1;
    bsSkinComboBox5.Text := '';
    for i := 0 to bsSkinComboBox5.Items.Count - 1 do
    begin
        if bsSkinComboBox5.Items[i]= StopBit then
        begin
            bsSkinComboBox5.ItemIndex := i;
            break;
        end;
    end;

end;

procedure TcomForm.bsSkinButton1Click(Sender: TObject);
begin
close;
end;

end.