uchmproperty.pas

帮助编写程序

unit uChmProperty;

interface

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

type
  TfrmChmProperty = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    txtBoard: TEdit;
    Label2: TLabel;
    txtUser: TEdit;
    Label3: TLabel;
    txtCaption: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    Label6: TLabel;
    ckbDelTgz: TCheckBox;
    ckbDelTmp: TCheckBox;
    btnSave: TButton;
    btnCancel: TButton;
    txtdcpPath: TEdit;
    imgtar: TImage;
    dlgOpen: TOpenDialog;
    txttgzFile: TEdit;
    imgtmp: TImage;
    txttmpPath: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure imgtarClick(Sender: TObject);
    procedure imgtmpClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChmProperty: TfrmChmProperty;

implementation

uses Misc, mCommonVal;

{$R *.dfm}

procedure TfrmChmProperty.FormCreate(Sender: TObject);
begin
{  db.SearchFirst;
  txtBoard.Text := db.GetBoardID;
  txtUser.Text := db.GetFieldStr('UserID');
  txtCaption.Text := db.GetFieldStr('Caption');
  txtdcpPath.Text := db.GetFieldStr('dcpPath');
  txttgzFile.Text := db.GetFieldStr('tgzFile');
  ckbDelTgz.Checked := db.GetFieldBool('tgzDelete');
  txttmpPath.Text := db.GetFieldStr('tmpPath');
  ckbDelTmp.Checked := db.GetFieldBool('tmpDelete'); }
  //
  imgtmp.Picture := imgtar.Picture;
  dlgOpen.Filter := Format('tgz压缩包(%s.tgz)|%s.tgz', [txtBoard.Text, txtBoard.Text]);
end;

procedure TfrmChmProperty.btnSaveClick(Sender: TObject);
begin
 { db.Edit;
  db.SetField('UserID', txtUser.Text);
  db.SetField('Caption', txtCaption.Text);
  db.SetField('tgzFile', txttgzFile.Text);
  db.SetField('tgzDelete', ckbDelTgz.Checked);
  db.SetField('tmpPath', txttmpPath.Text);
  db.SetField('tmpDelete', ckbDelTmp.Checked);
  db.Post;  }
 { if FileExists(txttgzFile.Text) and (db.GetStep < 2) then
    ModalResult := mrOK; }
end;

procedure TfrmChmProperty.imgtarClick(Sender: TObject);
begin
  if dlgOpen.Execute then
    txttgzFile.Text := dlgOpen.FileName;
end;

procedure TfrmChmProperty.imgtmpClick(Sender: TObject);
var
  dir: string;
begin
  dir := txttmpPath.Text;
  if SelectDirectory('选择临时文件存放目录', '', dir) then
    txttmpPath.Text := AddDirSuffix(dir);
end;

end.