ulog.pas

GPRS无线数据管理软件,用于远程数据采集和分析以及展现

unit Ulog;

interface

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

type
  Tflog = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    ComboBox1: TComboBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DirectoryListBox1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  flog: Tflog;

implementation

uses umain;

{$R *.dfm}

procedure Tflog.CheckBox1Click(Sender: TObject);
begin
    if not checkbox1.Checked then
      begin
        flog.DriveComboBox1.Enabled:=true;
        flog.DirectoryListBox1.Enabled:=true;
      end
    else
      begin
        flog.DriveComboBox1.Enabled:=false;
        flog.DirectoryListBox1.Enabled:=false;
      end
end;

procedure Tflog.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tflog.DirectoryListBox1DblClick(Sender: TObject);
begin
  memo1.Text:=flog.DirectoryListBox1.Directory;
end;

procedure Tflog.Button1Click(Sender: TObject);
begin
    if checkbox1.Checked then form1.lognamepath:=NO_DIRECTORY
    else
       begin
          if  directoryexists(memo1.Text) then
           form1.lognamepath:=memo1.Text
          else
           begin
             showmessage('目录不存在');
             exit;
           end;
       end;
    form1.logmaxcount:=strtoint(combobox1.Text);
    close;  
end;

procedure Tflog.FormCreate(Sender: TObject);
    var i:integer;
begin
    if form1.lognamepath=NO_DIRECTORY then
       begin
          checkbox1.Checked:=true;
          flog.DriveComboBox1.Enabled:=false;
          flog.DirectoryListBox1.Enabled:=false;
       end;   
    memo1.Lines.text:=form1.lognamepath;
    i:=flog.ComboBox1.Items.IndexOf(inttostr(form1.logmaxcount));
    combobox1.ItemIndex:=i

end;

end.