unitfrmchsapl.~pas

Ole编程

unit UnitfrmChsapl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UnitglbType,UnitfrmMain;

type
  TfrmChsapl = class(TForm)
    Label1: TLabel;
    cmbAppList: TComboBox;
    btnOk: TButton;
    btnCancle: TButton;
    procedure FormShow(Sender: TObject);
    procedure btnCancleClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
    //初始化申请书选择的combBox
    procedure initAppList();
  public
    { Public declarations }
  end;

var
  frmChsapl: TfrmChsapl;

implementation

{$R *.dfm}

procedure TfrmChsapl.FormShow(Sender: TObject);
begin
  initAppList();
end;

procedure TfrmChsapl.initAppList;
var
  Fp: file of appBook;
  size: longint; //文件大小(有多少块记录)
  i: integer;    //循环变量
begin
  self.cmbAppList.Items.Add('新建申请书');
  //从配置文件中读出申请书列表
  try
    assignFile(Fp,'.\config');
    reset(Fp);
    size := Filesize(Fp);
    for i:=1 to size do
    begin
      Read(Fp,appPara);
      self.cmbAppList.Items.Add(appPara.appName);
    end;
  finally
    closeFile(Fp);
  end;
  //置为选第一个
  self.cmbAppList.ItemIndex := 0;
end;

procedure TfrmChsapl.btnCancleClick(Sender: TObject);
begin
  self.Close;
end;

procedure TfrmChsapl.btnOkClick(Sender: TObject);
var
  frmMain: TFrmMain;
begin
  appNo := cmbAppList.ItemIndex;
  frmMain := TFrmMain.Create(self);
  frmMain.Show;
  self.Hide;
end;

end.