cwa130_01.pas.svn-base

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

unit Cwa130_01;

interface

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

type
  TCwa130_01Form = class(TBas200_01Form)
    Label1: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TStringField;
    qryHrm150H150_003: TStringField;
    ADOQuery1C130_001: TStringField;
    ADOQuery1H150_002: TStringField;
    dxDBGrid1C130_001: TdxDBGridColumn;
    dxDBGrid1H150_002: TdxDBGridLookupColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1C130_004: TdxDBGridDateColumn;
    ADOQuery1C130_002: TIntegerField;
    ADOQuery1C130_003: TDateTimeField;
    ADOQuery1H150_003: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Cwa130_01Form: TCwa130_01Form;

implementation

uses SYSDATA, CommFun, HwSelData;

{$R *.DFM}

procedure TCwa130_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('CWA13001001');  //电脑卡号维护
  ADOQuery1C130_001.DisplayLabel:=GetDBString('CWA13001002');  //电脑卡号
  ADOQuery1H150_002.DisplayLabel:=GetDBString('CWA13001003');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('CWA13001004');  //员工姓名
  ADOQuery1C130_003.DisplayLabel:=GetDBString('CWA13001005');  //启用日期
  qryHrm150H150_002.DisplayLabel:=GetDBString('CWA13001003');  //员工编号
  qryHrm150H150_003.DisplayLabel:=GetDBString('CWA13001004');  //员工姓名
  Label3.Caption:=GetDBString('CWA13001002');  //电脑卡号
  Label1.Caption:=GetDBString('CWA13001003');  //员工编号
  Label4.Caption:=GetDBString('CWA13001005');  //启用日期
end;

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

procedure TCwa130_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='C130_001' then ParValue:=GetDBString('CWA13001002')  //电脑卡号
  else if ParName='H150_002' then ParValue:=GetDBString('CWA13001003')  //员工编号
  else if ParName='H150_003' then ParValue:=GetDBString('CWA13001004')  //员工姓名
  else if ParName='C130_003' then ParValue:=GetDBString('CWA13001005')  //启用日期
end;

procedure TCwa130_01Form.SpeedButton1Click(Sender: TObject);
begin
  inherited;
//员工编号查询
  Edit1.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryHrm150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    if qryHrm150.IsEmpty then Exit;
    Edit1.Text:=qryHrm150.FieldByName('H150_002').AsString;
    ADOQuery1C130_002.Value:=qryHrm150.FieldByName('H150_001').Value;
  end;
end;

procedure TCwa130_01Form.Edit1Exit(Sender: TObject);
begin
  inherited;
  //员工编号合法性检查
  if qryHrm150.Locate('H150_002',Edit1.Text,[loCaseInsensitive]) then
  begin
    ADOQuery1C130_002.Value:=qryHrm150.FieldByName('H150_001').Value;
  end else
  begin
    ShowMsg('UMS10000042');  //无效的员工编号
    Edit1.SetFocus;
    Abort;
  end;
end;

procedure TCwa130_01Form.ActInsertExecute(Sender: TObject);
begin
  inherited;
//新增
  DBEdit3.SetFocus;
  wwDBDateTimePicker1.Date:=Date;
end;

procedure TCwa130_01Form.ActUpdateExecute(Sender: TObject);
begin
  inherited;
//修改
  DBEdit3.SetFocus;
end;

procedure TCwa130_01Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  Edit1.Text:=ADOQuery1H150_002.AsString;
end;

initialization
  RegisterClass(TCwa130_01Form);

finalization
  UnRegisterClass(TCwa130_01Form);

end.