unit5.pas

这是一个火车站公寓的自动叫班程序源码

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Common, FileCtrl;

type
  TfmSet = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    OpenDialog1: TOpenDialog;
    Label12: TLabel;
    Edit11: TEdit;
    Label13: TLabel;
    Edit12: TEdit;
    BitBtn4: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSet: TfmSet;

implementation

{$R *.dfm}
Uses Unit1;

procedure TfmSet.BitBtn2Click(Sender: TObject);
var tmp:integer;
    fname:TFileName;
    tfile:File of TSysSet;
begin
  //电话录音线路1
  try
    tmp:=strtoint(Edit2.Text);
    SysSet.PhoneLine1:=tmp;
  except
  end;
  //电话录音线路1
  try
    tmp:=strtoint(Edit3.Text);
    SysSet.PhoneLine2:=tmp;
  except
  end;
  //公司名称
  SysSet.StationName:=Edit11.Text;
  //语音数据存放路径
  if(DirectoryExists(Edit4.Text)) then
    SysSet.WaveDir:=Edit4.Text;
  //电话录音数据存放路径
  if(DirectoryExists(Edit12.Text)) then
    SysSet.TelephoneDir:=Edit12.Text;
  //人工录音叫班存放语音条数
  try
    tmp:=strtoint(Edit6.Text);
    SysSet.MaxManualWaveNum:=tmp;
  except
  end;
  //自动叫班一叫三催时间间隔：（单位：分钟）
  try
    tmp:=strtoint(Edit7.Text);
    SysSet.CallInterval:=tmp;
  except
  end;
  //自动叫班存放语音条数
  try
    tmp:=strtoint(Edit8.Text);
    SysSet.MaxAutoWaveNum:=tmp;
  except
  end;
  //人工录音叫班最长时间：（单位：分钟）
  try
    tmp:=strtoint(Edit9.Text);
    SysSet.MaxCallTime:=tmp;
  except
  end;
  //电话录音条数
  try
    tmp:=strtoint(Edit10.Text);
    SysSet.MaxPhoneWaveNum:=tmp;
  except
  end;
  //启动电话录音
  SysSet.AutoSavePhone1:=CheckBox1.Checked;
  SysSet.AutoSavePhone2:=CheckBox2.Checked;
  //录音位数
  if(RadioButton1.Checked) then
    SysSet.RecordBits:=8
  else
    SysSet.RecordBits:=16;
  //录音波特率
  if(RadioButton3.Checked) then
    SysSet.RecordRate:=11025
  else if(RadioButton4.Checked) then
    SysSet.RecordRate:=22050
  else if(RadioButton5.Checked) then
    SysSet.RecordRate:=44100;
  //写入文件
  fname:=RootDir+'\sysset.cfg';
  assignfile(tfile,fname);
  rewrite(tfile);
  write(tfile,SysSet);
  //公司名称
  fmMain.StatusBar1.Panels[0].Text:=SysSet.StationName;
end;

procedure TfmSet.BitBtn1Click(Sender: TObject);
var
      Dir:   string;
begin
  //if(OpenDialog1.Execute) then
  //  Edit4.Text:=ExtractFileDir(OpenDialog1.FileName);
  if DirectoryExists(SysSet.WaveDir) then
    Dir:=SysSet.WaveDir
  else
    Dir:=RootDir;
  if SelectDirectory(Dir,[sdAllowCreate,sdPerformCreate,sdPrompt],0)   then
  //if SelectDirectory('声音文件存放目录',Dir,Dir) then
      Edit4.Text:=Dir;

end;

procedure TfmSet.BitBtn3Click(Sender: TObject);
begin
  fmSet.Hide;
end;

procedure TfmSet.FormShow(Sender: TObject);
begin
  //加载系统设置参数
  Edit2.Text:=inttostr(SysSet.PhoneLine1);
  Edit3.Text:=inttostr(SysSet.PhoneLine2);
  Edit4.Text:=SysSet.WaveDir;
  Edit12.Text:=SysSet.TelephoneDir;
  Edit6.Text:=inttostr(SysSet.MaxManualWaveNum);
  Edit7.Text:=inttostr(SysSet.CallInterval);
  Edit8.Text:=inttostr(SysSet.MaxAutoWaveNum);
  Edit9.Text:=inttostr(SysSet.MaxCallTime);
  Edit10.Text:=inttostr(SysSet.MaxPhoneWaveNum);
  Edit11.Text:=SysSet.StationName;
  CheckBox1.Checked:=SysSet.AutoSavePhone1;
  CheckBox2.Checked:=SysSet.AutoSavePhone2;
  if(SysSet.RecordBits=8) then
    RadioButton1.Checked:=true
  else
    RadioButton2.Checked:=true;
  if(SysSet.RecordRate=11025) then
    RadioButton3.Checked:=true
  else if(SysSet.RecordRate=22050) then
    RadioButton4.Checked:=true
  else
    RadioButton5.Checked:=true;
  
end;

procedure TfmSet.BitBtn4Click(Sender: TObject);
var
      Dir:   string;
begin
  if DirectoryExists(SysSet.TelephoneDir) then
    Dir:=SysSet.TelephoneDir
  else
    Dir:=RootDir;
  if SelectDirectory(Dir,[sdAllowCreate,sdPerformCreate,sdPrompt],0)   then
  //if SelectDirectory('声音文件存放目录',Dir,Dir) then
      Edit12.Text:=Dir;

end;

end.