rab200_01.pas.svn-base

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

unit Rab200_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Db, 
  Grids, ExtCtrls, ComCtrls, ToolWin, Buttons,
  StdCtrls, Mask, Bas200_03, 
  dxExEdtr, ADODB, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ActnList, dxDBTLCl,
  dxGrClms;

type
  TRab200_01Form = class(TBas200_03Form)
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    SpeedButton3: TSpeedButton;
    Edit2: TEdit;
    SpeedButton4: TSpeedButton;
    dsRab100: TDataSource;
    qryRab100: TADOQuery;
    qryRab100R100_001: TAutoIncField;
    qryRab100R100_002: TStringField;
    qryRab100R100_003: TStringField;
    qryRab110: TADOQuery;
    qryRab110R110_001: TAutoIncField;
    qryRab110R110_002: TIntegerField;
    qryRab110R110_003: TStringField;
    qryRab110R110_004: TStringField;
    qryRab110R110_006: TIntegerField;
    qryRab110R110_007: TIntegerField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1R500_002: TDateTimeField;
    ADOQuery1R100_002: TStringField;
    ADOQuery1R100_003: TStringField;
    ADOQuery1R110_003: TStringField;
    ADOQuery1R110_004: TStringField;
    ADOQuery1R110_005: TFloatField;
    ADOQuery1R110_006: TIntegerField;
    ADOQuery1R110_007: TIntegerField;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1R500_002: TdxDBGridDateColumn;
    dxDBGrid1R100_002: TdxDBGridColumn;
    dxDBGrid1R100_003: TdxDBGridColumn;
    dxDBGrid1R110_003: TdxDBGridColumn;
    dxDBGrid1R110_004: TdxDBGridColumn;
    dxDBGrid1R110_005: TdxDBGridMaskColumn;
    dxDBGrid1R110_006: TdxDBGridMaskColumn;
    dxDBGrid1R110_007: TdxDBGridMaskColumn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Rab200_01Form: TRab200_01Form;

implementation

uses SYSDATA, HwSelData, CommFun;

{$R *.DFM}

procedure TRab200_01Form.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  ADOQuery1.Close;
  ADOQuery1.Parameters.ParamByName('BulidID').Value:=Edit1.Text;
  ADOQuery1.Parameters.ParamByName('RoomID').Value:=Edit2.Text;
  ADOQuery1.Open;
end;

procedure TRab200_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('RAB20001001');  //员工住房明细
  Label1.Caption:=GetDBString('RAB20001002');  //宿舍编号
  Label2.Caption:=GetDBString('RAB20001003');  //住房编号
  SpeedButton1.Caption:=GetDBString('RAB20001004');  //确定

  ADOQuery1H150_002.DisplayLabel:=GetDBString('RAB20001005');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('RAB20001006');  //员工姓名
  ADOQuery1R500_002.DisplayLabel:=GetDBString('RAB20001007');  //生效日期
  ADOQuery1R100_002.DisplayLabel:=GetDBString('RAB20001008');  //宿舍编号
  ADOQuery1R100_003.DisplayLabel:=GetDBString('RAB20001009');  //宿舍说明
  ADOQuery1R110_003.DisplayLabel:=GetDBString('RAB20001010');  //住房编号
  ADOQuery1R110_004.DisplayLabel:=GetDBString('RAB20001011');  //规格说明
  ADOQuery1R110_005.DisplayLabel:=GetDBString('RAB20001012');  //住房面积
  ADOQuery1R110_006.DisplayLabel:=GetDBString('RAB20001013');  //可住人数
  ADOQuery1R110_007.DisplayLabel:=GetDBString('RAB20001014');  //已住人数

  qryRab100R100_002.DisplayLabel:=GetDBString('RAB20001002');  //宿舍编号
  qryRab100R100_003.DisplayLabel:=GetDBString('RAB20001009');  //宿舍说明
  qryRab110R110_003.DisplayLabel:=GetDBString('RAB20001003');  //住房编号
  qryRab110R110_004.DisplayLabel:=GetDBString('RAB20001011');  //规格说明
end;

procedure TRab200_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  qryRab100.Open;
  qryRab110.Open;
  Edit1.Text:=qryRab100R100_002.AsString;
  Edit2.Text:=qryRab110R110_003.AsString;
  //设置界面信息
  SetInterface;
end;

procedure TRab200_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryRab100.Close;
  qryRab110.Close;
end;

procedure TRab200_01Form.SpeedButton2Click(Sender: TObject);
begin
  inherited;
//宿舍编号查询
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryRab100,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    Edit1.Text:=qryRab100R100_002.AsString;
    Edit1.setfocus;
  end;
end;

procedure TRab200_01Form.Edit1Exit(Sender: TObject);
begin
  inherited;
  if qryRab100.Locate('R100_002',Edit1.Text,[loCaseInsensitive]) then
  begin
    Edit1.Text:=qryRab100R100_002.AsString;
  end else
  begin
    ShowMsg('UMS10000100');  //无效的宿舍编号
    Edit1.setfocus;
    Abort;
  end;
end;

procedure TRab200_01Form.SpeedButton4Click(Sender: TObject);
begin
  inherited;
//住房编号查询
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryRab110,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    Edit2.Text:=qryRab110R110_003.AsString;
    Edit2.setfocus;
  end;
end;

procedure TRab200_01Form.Edit2Exit(Sender: TObject);
begin
  inherited;
  if qryRab110.Locate('R110_003',Edit2.Text,[loCaseInsensitive]) then
  begin
    Edit2.Text:=qryRab110R110_003.AsString;
  end else
  begin
    ShowMsg('UMS10000101');  //无效的住房编号
    Edit2.setfocus;
    Abort;
  end;
end;

procedure TRab200_01Form.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key=vk_F4 then SpeedButton2.Click;
end;

procedure TRab200_01Form.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key=vk_F4 then SpeedButton4.Click;
end;

procedure TRab200_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

initialization
  RegisterClass(TRab200_01Form);

finalization
  UnRegisterClass(TRab200_01Form);

end.