about_f.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 57 行

unit About_F;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Mask, DBCtrls;

type
  TF_About = class(TForm)
    Panel: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    L_Ver: TLabel;
    procedure OKButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_About: TF_About;

implementation

uses Table_DM;

{$R *.DFM}

procedure TF_About.OKButtonClick(Sender: TObject);
begin
	Close;
end;



procedure TF_About.FormShow(Sender: TObject);
begin
    DM_Table.Query.SQL.Text := 'Select f_Ver From Tb_Ver';
	Try//不存在时表示为旧版本
		DM_Table.Query.Open();
	    L_Ver.Caption := 'Ver: ' + DM_Table.Query['f_Ver'];
	Except
    	L_Ver.Caption := 'Ver: 0.9';
    End;
end;

end.