rab110_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Rab110_01;

interface

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

type
  TRab110_01Form = class(TBas200_02Form)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    ADOQuery1R100_002: TStringField;
    ADOQuery1R100_003: TStringField;
    ADOQuery2R110_001: TAutoIncField;
    ADOQuery2R110_002: TIntegerField;
    ADOQuery2R110_003: TStringField;
    ADOQuery2R110_004: TStringField;
    ADOQuery2R110_005: TFloatField;
    ADOQuery2R110_006: TIntegerField;
    ADOQuery2R110_007: TIntegerField;
    ADOQuery2R110_008: TFloatField;
    ADOQuery2R110_009: TFloatField;
    ADOQuery2R110_010: TStringField;
    dxDBGrid1R110_003: TdxDBGridColumn;
    dxDBGrid1R110_004: TdxDBGridColumn;
    dxDBGrid1R110_005: TdxDBGridMaskColumn;
    dxDBGrid1R110_006: TdxDBGridMaskColumn;
    dxDBGrid1R110_007: TdxDBGridMaskColumn;
    dxDBGrid1R110_008: TdxDBGridMaskColumn;
    dxDBGrid1R110_009: TdxDBGridMaskColumn;
    dxDBGrid1R110_010: TdxDBGridColumn;
    ADOQuery1R100_001: TAutoIncField;
    procedure FormCreate(Sender: TObject);
    procedure dxDBGrid1R110_007CustomDrawCell(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
      AColumn: TdxTreeListColumn; ASelected, AFocused,
      ANewItemRow: Boolean; var AText: String; var AColor: TColor;
      AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
    procedure ActSaveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Rab110_01Form: TRab110_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TRab110_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('RAB11001001');  //住房资料维护
  Label1.Caption:=GetDBString('RAB11001002');  //宿舍编号
  Label2.Caption:=GetDBString('RAB11001003');  //宿舍说明
  ADOQuery1R100_002.DisplayLabel:=GetDBString('RAB11001002');  //宿舍编号
  ADOQuery1R100_003.DisplayLabel:=GetDBString('RAB11001003');  //宿舍说明
  ADOQuery2R110_003.DisplayLabel:=GetDBString('RAB11001004');  //住房编号
  ADOQuery2R110_004.DisplayLabel:=GetDBString('RAB11001005');  //规格说明
  ADOQuery2R110_005.DisplayLabel:=GetDBString('RAB11001006');  //住房面积
  ADOQuery2R110_006.DisplayLabel:=GetDBString('RAB11001007');  //可住人数
  ADOQuery2R110_007.DisplayLabel:=GetDBString('RAB11001008');  //已住人数
  ADOQuery2R110_008.DisplayLabel:=GetDBString('RAB11001009');  //房间费用
  ADOQuery2R110_009.DisplayLabel:=GetDBString('RAB11001010');  //人均费用
  ADOQuery2R110_010.DisplayLabel:=GetDBString('RAB11001011');  //备注
  Label3.Caption:=GetDBString('RAB11001004');  //住房编号
  Label4.Caption:=GetDBString('RAB11001005');  //规格说明
  Label5.Caption:=GetDBString('RAB11001006');  //住房面积
  Label6.Caption:=GetDBString('RAB11001007');  //可住人数
  Label7.Caption:=GetDBString('RAB11001008');  //已住人数
  Label8.Caption:=GetDBString('RAB11001009');  //房间费用
  Label9.Caption:=GetDBString('RAB11001010');  //人均费用
  Label10.Caption:=GetDBString('RAB11001011');  //备注
end;

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

procedure TRab110_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='R100_002' then ParValue:=GetDBString('RAB11001002')  //宿舍编号
  else if ParName='R100_003' then ParValue:=GetDBString('RAB11001003')  //宿舍说明
  else if ParName='R110_003' then ParValue:=GetDBString('RAB11001004')  //住房编号
  else if ParName='R110_004' then ParValue:=GetDBString('RAB11001005')  //规格说明
  else if ParName='R110_005' then ParValue:=GetDBString('RAB11001006')  //住房面积
  else if ParName='R110_006' then ParValue:=GetDBString('RAB11001007')  //可住人数
  else if ParName='R110_007' then ParValue:=GetDBString('RAB11001008')  //已住人数
  else if ParName='R110_008' then ParValue:=GetDBString('RAB11001009')  //房间费用
  else if ParName='R110_009' then ParValue:=GetDBString('RAB11001010')  //人均费用
  else if ParName='R110_010' then ParValue:=GetDBString('RAB11001011')  //备注
  else if ParName='DATE_TIM' then ParValue:=GetDBString('COM00004001')  //列印日期:
  else if ParName='RECO_TOT' then ParValue:=GetDBString('COM00004002')  //记录总数:
  else if ParName='PAGE_SEQ' then ParValue:=GetDBString('COM00004003')  //页数:
end;

procedure TRab110_01Form.dxDBGrid1R110_007CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
  if AFocused then Exit;
  ACanvas.Brush.Color:=clYellow;
end;

procedure TRab110_01Form.ActSaveExecute(Sender: TObject);
begin
  ADOQuery2R110_002.Value:=ADOQuery1R100_001.Value;
  inherited;
end;

initialization
  RegisterClass(TRab110_01Form);

finalization
  UnRegisterClass(TRab110_01Form);

end.