urctx.pas

来自「小型企业物品管理系统,DELPHI源码+ACCESS数据库」· PAS 代码 · 共 65 行

unit Urctx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzButton, ExtCtrls, PrnDbgeh, Grids, DBGridEh, DB,
  RzSplit, StdCtrls, Mask, DBCtrls, RzEdit, RzDBEdit, ActnList, RzRadChk,
  jpeg, RzBckgnd, RzLabel, bsSkinCtrls, bsSkinBoxCtrls, bsdbctrls;

type
  Tfsysinfo = class(TForm)
    RzStatusBar1: TRzStatusBar;
    img1: TImage;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    RzSeparator1: TRzSeparator;
    RzBitBtn1: TRzBitBtn;
    RzURLLabel1: TRzURLLabel;
    RzURLLabel2: TRzURLLabel;
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fsysinfo: Tfsysinfo;

implementation

uses Udate, Utxtjsz, Umain;

{$R *.dfm}

procedure Tfsysinfo.FormShow(Sender: TObject);
begin
  Fmain.qryinfo.close;
  Fmain.qryinfo.Open;
  RzURLLabel1.Caption:=Fmain.qryinfosiMail.Value;
  RzURLLabel2.Caption:=Fmain.qryinfosiURL.Value;
end;

procedure Tfsysinfo.RzBitBtn1Click(Sender: TObject);
begin
  close;
end;

end.