sysparafrm.pas

来自「delphi 编制的服务器程序」· PAS 代码 · 共 42 行

unit SysparaFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, Grids, DBGrids, ComCtrls,
  Buttons, ExtCtrls, StdCtrls, Mask, DBCtrls;

type
  TSysParaForm = class(TDbChildForm)
    ADOQuery1SysCode: TWideStringField;
    ADOQuery1SysName: TWideStringField;
    ADOQuery1SysValue: TFloatField;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SysParaForm: TSysParaForm;
  procedure CallSysParaForm;
implementation

uses MainDm;

{$R *.dfm}
procedure CallSysParaForm;
begin
  if SysParaForm = nil then
    SysParaForm := TSysParaForm.Create(Application);
  SysParaForm.ShowModal;
  SysParaForm.Free;
  SysParaForm := nil;
end;
end.