configunit.~pas

初学DELPHI编写的“奖学金评定系统”

unit configUnit;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Dialogs, filectrl,inifiles;

type
  TPagesDlg = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    OKBtn: TButton;
    CancelBtn: TButton;
    HelpBtn: TButton;
    OpenDialog1: TOpenDialog;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit8: TEdit;
    Edit7: TEdit;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Label16: TLabel;
    Edit16: TEdit;
    Button5: TButton;
    TabSheet3: TTabSheet;
    ComboBox1: TComboBox;
    Label17: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PagesDlg: TPagesDlg;

implementation

{$R *.dfm}
var
  IniFile:TInifile;
  Inifilename: string;
  propzy,propdy,propty,propzh: real;
  jdzc,jdzy,ydzc,ydzy,bdzc,bdzy,zbl: real;
procedure TPagesDlg.FormCreate(Sender: TObject);
begin
  Inifilename:= ExtractFilePath(paramstr(0))+'Serv.ini';
  inifile:= TInifile.Create(Inifilename);
  edit2.Text:= inifile.ReadString('资源文件地址','成绩文件夹',ExtractFilePath(paramstr(0))+ '课程成绩xls');
  edit1.Text:= inifile.ReadString('资源文件地址','学籍文件',ExtractFilePath(paramstr(0))+ '学籍信息xls\学籍信息.xls');
  edit3.Text:= inifile.ReadString('资源文件地址','得分文件夹',ExtractFilePath(paramstr(0))+ '得分信息xls');
  edit4.Text:= inifile.ReadString('输出文件地址','输出文件夹',ExtractFilePath(paramstr(0))+ '处理结果xls');
  edit16.Text:= inifile.ReadString('输出文件地址','数据库地址',ExtractFilePath(paramstr(0))+ '综合信息.mdb');
  edit5.Text:= floattostr(inifile.ReadFloat('比例分配','智育',0.6));
  edit6.Text:= floattostr(inifile.ReadFloat('比例分配','德育',0.2));
  edit7.Text:= floattostr(inifile.ReadFloat('比例分配','体育',0.1));
  edit8.Text:= floattostr(inifile.ReadFloat('比例分配','综合',0.1));
  edit9.Text:= floattostr(inifile.ReadFloat('比例分配','甲等综测',0.05));
  edit10.Text:= floattostr(inifile.ReadFloat('比例分配','甲等智育',0.09));
  edit11.Text:= floattostr(inifile.ReadFloat('比例分配','乙等综测',0.13));
  edit12.Text:= floattostr(inifile.ReadFloat('比例分配','乙等智育',0.18));
  edit13.Text:= floattostr(inifile.ReadFloat('比例分配','丙等综测',0.23));
  edit14.Text:= floattostr(inifile.ReadFloat('比例分配','丙等智育',0.30));
  edit15.Text:= floattostr(inifile.ReadFloat('比例分配','总比例',0.10));

end;

procedure ReadIni();
begin

end;
procedure TPagesDlg.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit1.Text:= opendialog1.FileName;
end;

procedure TPagesDlg.Button2Click(Sender: TObject);
var
  dir: string;
begin
  selectdirectory('成绩文件夹','',dir);
  edit2.Text:= dir;
end;

procedure TPagesDlg.Button3Click(Sender: TObject);
var
  dir: string;
begin
  selectdirectory('得分文件夹','',dir);
  edit3.Text:= dir;
end;

procedure TPagesDlg.Button4Click(Sender: TObject);
var
  dir: string;
begin
  selectdirectory('输出文件夹','',dir);
  edit4.Text:= dir;
end;

procedure TPagesDlg.CancelBtnClick(Sender: TObject);
begin
close;
end;

procedure TPagesDlg.HelpBtnClick(Sender: TObject);
begin
  try
    Inifilename:= ExtractFilePath(paramstr(0))+'Serv.ini';
    inifile:= TInifile.Create(Inifilename);
    inifile.WriteString('资源文件地址','学籍文件',edit1.Text);
    inifile.WriteString('资源文件地址','成绩文件夹',edit2.Text);
    inifile.WriteString('资源文件地址','得分文件夹',edit3.Text);
    inifile.WriteString('输出文件地址','输出文件夹',edit4.Text);
    inifile.WriteString('输出文件地址','数据库地址',edit16.Text);
    inifile.WriteString('比例分配','智育',edit5.Text);
    inifile.WriteString('比例分配','德育',edit6.Text);
    inifile.WriteString('比例分配','体育',edit7.Text);
    inifile.WriteString('比例分配','综合',edit8.Text);
    inifile.WriteString('比例分配','甲等综测',edit9.Text);
    inifile.WriteString('比例分配','甲等智育',edit10.Text);
    inifile.WriteString('比例分配','乙等综测',edit11.Text);
    inifile.WriteString('比例分配','乙等智育',edit12.Text);
    inifile.WriteString('比例分配','丙等综测',edit13.Text);
    inifile.WriteString('比例分配','丙等智育',edit14.Text);
    inifile.WriteString('比例分配','总比例',edit15.Text);
    inifile.WriteString('评奖时间信息','评奖学年',combobox1.Text);
  finally
    inifile.Free;
    close;
  end;
end;

procedure TPagesDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
free;
end;

procedure TPagesDlg.Button5Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit16.Text:= opendialog1.FileName;
end;

end.