fileinfo.pas

单片机典型系统设计实例精讲 第4章 PC机与数控机床通信系统

{
=====================================================================
* 软件名称：PC与数控机床通信程序
* 单元名称：编辑文件信息
* 单元作者：彭为 ([e-mail])
* 备    注：用到了线程进行发送
* 开发平台：PWin2000 SERVER + Delphi 7.0
* 兼容测试：PWin9X/2000/XP + Delphi 6/7
* 采用控件：Raize 3.12 ,SPCOMM
* 修改记录：V1.0  by pengwei
=====================================================================
}
unit FileInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzLabel, RzButton, DB, ADODB;

type
  TFileInfoFrm = class(TForm)
    RzLabel6: TRzLabel;
    edtUser: TEdit;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    cboChannel: TComboBox;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    edtTime: TEdit;
    edtSize: TEdit;
    edtMemo: TMemo;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Query: TADOQuery;
    edtpath: TEdit;
    RzLabel3: TRzLabel;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Fid: integer;
    { Private declarations }
  public
    procedure Init;
    procedure showForm(const id: integer);
    constructor Create(const id: Integer); reintroduce; overload;
    { Public declarations }
  end;

var
  FileInfoFrm: TFileInfoFrm;

implementation

uses Mainfrm, Include, ConfigFrm;

{$R *.dfm}

procedure TFileInfoFrm.FormCreate(Sender: TObject);
begin
  Caption := sFileInfocaption;
end;

procedure TFileInfoFrm.Init;
begin
  ; //初始化
  cboChannel.Clear;
  cboChannel.Items := Config.ChannelList;

  with query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from Data where id=' + IntToStr(Fid));
    Open;
    cboChannel.ItemIndex := FieldByName('channel').AsInteger - 1;
    edtUser.Text := FieldByName('author').AsString;
    edtMemo.Text := FieldByName('smemo').AsString;
    edtTime.Text := FieldByName('Timestr').AsString;
    edtSize.Text := FieldByName('filesize').AsString;
    edtpath.Text := FieldByName('filename').AsString;
    Close;
  end;
end;

procedure TFileInfoFrm.showForm(const id: integer);
begin
  if FileInfoFrm = nil then
    FileInfoFrm := TFileInfoFrm.Create(id);
  FileInfoFrm.ShowModal;
end;

procedure TFileInfoFrm.RzBitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFileInfoFrm.RzBitBtn1Click(Sender: TObject);
var
  sUser, sChannel, sMemo: string;
  BookMarker: Pointer;
begin
  sUser := Trim(edtUser.Text);
  sChannel := IntToStr(cboChannel.ItemIndex + 1);
  sMemo := Trim(edtMemo.Lines.CommaText);

  with Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('Update data set Author=''%s'',channel=%s,sMemo=''%s'' where id=%d', [sUser, sChannel, smemo, Fid]));
    ExecSQL;
    Close;
  end;
  with Main do
  begin
    BookMarker := Table.GetBookmark;
    Table.Close;
    Table.Open;
    Table.GotoBookmark(bookmarker);
  end;
  Close;
end;

procedure TFileInfoFrm.FormShow(Sender: TObject);
begin
  Init;
end;

constructor TFileInfoFrm.Create(const id: Integer);
begin
  inherited Create(Application);
  Fid := id;
end;

end.