rab100_01.pas.svn-base

来自「开源的网站整站程序,功能强大带采集系统.」· SVN-BASE 代码 · 共 100 行

unit Rab100_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Wwintl, Db, Menus, Grids, ComCtrls, ExtCtrls,
  ToolWin, StdCtrls, Mask, DBCtrls, Bas200_01, dxExEdtr, ADODB, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, FR_Desgn, ActnList, wwfltdlg, wwDialog, Wwlocate;

type
  TRab100_01Form = class(TBas200_01Form)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    ADOQuery1R100_001: TAutoIncField;
    ADOQuery1R100_002: TStringField;
    ADOQuery1R100_003: TStringField;
    ADOQuery1R100_004: TStringField;
    ADOQuery1R100_005: TIntegerField;
    ADOQuery1R100_006: TStringField;
    ADOQuery1R100_007: TStringField;
    dxDBGrid1R100_002: TdxDBGridColumn;
    dxDBGrid1R100_003: TdxDBGridColumn;
    dxDBGrid1R100_004: TdxDBGridColumn;
    dxDBGrid1R100_005: TdxDBGridMaskColumn;
    dxDBGrid1R100_006: TdxDBGridColumn;
    dxDBGrid1R100_007: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Rab100_01Form: TRab100_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TRab100_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('RAB10001001');  //宿舍资料维护
  Label1.Caption:=GetDBString('RAB10001002');  //宿舍编号
  Label2.Caption:=GetDBString('RAB10001003');  //宿舍说明
  Label4.Caption:=GetDBString('RAB10001005');  //住房数量
  Label3.Caption:=GetDBString('RAB10001004');  //宿舍地址
  Label5.Caption:=GetDBString('RAB10001006');  //电话
  Label6.Caption:=GetDBString('RAB10001007');  //备注
  ADOQuery1R100_002.DisplayLabel:=GetDBString('RAB10001002');  //宿舍编号
  ADOQuery1R100_005.DisplayLabel:=GetDBString('RAB10001005');  //住房数量
  ADOQuery1R100_003.DisplayLabel:=GetDBString('RAB10001003');  //宿舍说明
  ADOQuery1R100_004.DisplayLabel:=GetDBString('RAB10001004');  //宿舍地址
  ADOQuery1R100_006.DisplayLabel:=GetDBString('RAB10001006');  //电话
  ADOQuery1R100_007.DisplayLabel:=GetDBString('RAB10001007');  //备注
end;

procedure TRab100_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  //设置界面信息
  SetInterface;
end;

procedure TRab100_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='R100_002' then ParValue:=GetDBString('RAB10001002')  //宿舍编号
  else if ParName='R100_003' then ParValue:=GetDBString('RAB10001003')  //宿舍说明
  else if ParName='R100_004' then ParValue:=GetDBString('RAB10001004')  //宿舍地址
  else if ParName='R100_005' then ParValue:=GetDBString('RAB10001005')  //住房数量
  else if ParName='R100_006' then ParValue:=GetDBString('RAB10001006')  //电话
  else if ParName='R100_007' then ParValue:=GetDBString('RAB10001007')  //备注
end;

initialization
  RegisterClass(TRab100_01Form);

finalization
  UnRegisterClass(TRab100_01Form);

end.