cwa110_01.pas.svn-base

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

unit Cwa110_01;

interface

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

type
  TCwa110_01Form = class(TBas200_01Form)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DBEdit9: TDBEdit;
    ADOQuery1C110_001: TAutoIncField;
    ADOQuery1C110_002: TStringField;
    ADOQuery1C110_003: TStringField;
    ADOQuery1C110_004: TStringField;
    ADOQuery1C110_005: TStringField;
    ADOQuery1C110_006: TStringField;
    ADOQuery1C110_007: TStringField;
    ADOQuery1C110_008: TStringField;
    ADOQuery1C110_009: TStringField;
    ADOQuery1C110_010: TStringField;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit3: TdxTimeEdit;
    DBEdit4: TdxTimeEdit;
    DBEdit5: TdxTimeEdit;
    DBEdit6: TdxTimeEdit;
    DBEdit7: TdxTimeEdit;
    DBEdit8: TdxTimeEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ADOQuery1C110_011: TSmallintField;
    ADOQuery1C110_012: TSmallintField;
    ADOQuery1C110_013: TSmallintField;
    dxDBGrid1C110_002: TdxDBGridMaskColumn;
    dxDBGrid1C110_003: TdxDBGridMaskColumn;
    dxDBGrid1C110_004: TdxDBGridMaskColumn;
    dxDBGrid1C110_005: TdxDBGridMaskColumn;
    dxDBGrid1C110_006: TdxDBGridMaskColumn;
    dxDBGrid1C110_007: TdxDBGridMaskColumn;
    dxDBGrid1C110_008: TdxDBGridMaskColumn;
    dxDBGrid1C110_009: TdxDBGridMaskColumn;
    dxDBGrid1C110_011: TdxDBGridMaskColumn;
    dxDBGrid1C110_012: TdxDBGridMaskColumn;
    dxDBGrid1C110_013: TdxDBGridMaskColumn;
    dxDBGrid1C110_010: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure tlbInsertClick(Sender: TObject);
    procedure tlbUpdateClick(Sender: TObject);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActSaveExecute(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure ADOQuery1C110_011GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1C110_012GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1C110_013GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    AID:string;
    AType:array[0..2] of string;
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Cwa110_01Form: TCwa110_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TCwa110_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='C110_002' then ParValue:=GetDBString('CWA11001018')  //班别编号
  else if ParName='C110_003' then ParValue:=GetDBString('CWA11001019')  //班别名称
  else if ParName='C110_004' then ParValue:=GetDBString('CWA11001021')  //上班
  else if ParName='C110_005' then ParValue:=GetDBString('CWA11001022')  //下班
  else if ParName='C110_006' then ParValue:=GetDBString('CWA11001021')  //上班
  else if ParName='C110_007' then ParValue:=GetDBString('CWA11001022')  //下班
  else if ParName='C110_008' then ParValue:=GetDBString('CWA11001021')  //上班
  else if ParName='C110_009' then ParValue:=GetDBString('CWA11001022')  //下班
  else if ParName='C110_010' then ParValue:=GetDBString('CWA11001025')  //备注
  else if ParName='C110_011' then ParValue:=GetDBString('CWA11001027')  //下班日
  else if ParName='C110_012' then ParValue:=GetDBString('CWA11001027')  //下班日
  else if ParName='C110_013' then ParValue:=GetDBString('CWA11001027')  //下班日
  else if ParName='GROP_001' then ParValue:=GetDBString('CWA11001020')  //上午
  else if ParName='GROP_002' then ParValue:=GetDBString('CWA11001023')  //下午
  else if ParName='GROP_003' then ParValue:=GetDBString('CWA11001024')  //晚上
end;

procedure TCwa110_01Form.SetInterface;
begin
  inherited;
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('CWA11001001');  //班别文件维护
  ADOQuery1C110_002.DisplayLabel:=GetDBString('CWA11001018');  //班别编号
  ADOQuery1C110_003.DisplayLabel:=GetDBString('CWA11001019');  //班别名称
  ADOQuery1C110_004.DisplayLabel:=GetDBString('CWA11001021');  //上班
  ADOQuery1C110_005.DisplayLabel:=GetDBString('CWA11001022');  //下班
  ADOQuery1C110_006.DisplayLabel:=GetDBString('CWA11001021');  //上班
  ADOQuery1C110_007.DisplayLabel:=GetDBString('CWA11001022');  //下班
  ADOQuery1C110_008.DisplayLabel:=GetDBString('CWA11001021');  //上班
  ADOQuery1C110_009.DisplayLabel:=GetDBString('CWA11001022');  //下班
  ADOQuery1C110_010.DisplayLabel:=GetDBString('CWA11001025');  //备注
  ADOQuery1C110_011.DisplayLabel:=GetDBString('CWA11001011');  //上午下班日
  ADOQuery1C110_012.DisplayLabel:=GetDBString('CWA11001012');  //下午下班日
  ADOQuery1C110_013.DisplayLabel:=GetDBString('CWA11001013');  //晚上下班日

  Label1.Caption:=GetDBString('CWA11001018');  //班别编号
  Label2.Caption:=GetDBString('CWA11001019');  //班别名称
  Label3.Caption:=GetDBString('CWA11001002');  //上午上班
  Label4.Caption:=GetDBString('CWA11001003');  //下午上班
  Label5.Caption:=GetDBString('CWA11001004');  //晚上上班
  Label6.Caption:=GetDBString('CWA11001025');  //备注

  Label7.Caption:=GetDBString('CWA11001005');  //上午下班
  Label9.Caption:=GetDBString('CWA11001006');  //下午下班
  Label8.Caption:=GetDBString('CWA11001007');  //晚上下班

  Label10.Caption:=GetDBString('CWA11001011');  //上午下班日
  Label11.Caption:=GetDBString('CWA11001012');  //下午下班日
  Label12.Caption:=GetDBString('CWA11001013');  //晚上下班日

  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  ComboBox1.Items.Add(GetDBString('CWA11001008'));  //当日
  ComboBox1.Items.Add(GetDBString('CWA11001009'));  //明日
  ComboBox1.Items.Add(GetDBString('CWA11001010'));  //后日
  ComboBox2.Items:=ComboBox1.Items;
  ComboBox3.Items:=ComboBox1.Items;
  AType[0]:=GetDBString('CWA11001008');  //当日
  AType[1]:=GetDBString('CWA11001009');  //明日
  AType[2]:=GetDBString('CWA11001010');  //后日
end;

procedure TCwa110_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  ADOQuery1AfterScroll(ADOQuery1);
end;

procedure TCwa110_01Form.tlbInsertClick(Sender: TObject);
begin
  inherited;
//insert
  DBEdit1.SetFocus;
end;

procedure TCwa110_01Form.tlbUpdateClick(Sender: TObject);
begin
  inherited;
//update
  DBEdit1.SetFocus;
end;

procedure TCwa110_01Form.ActInsertExecute(Sender: TObject);
begin
  inherited;
//新增
  DBEdit3.Time:=0;
  DBEdit4.Time:=0;
  DBEdit5.Time:=0;
  DBEdit6.Time:=0;
  DBEdit7.Time:=0;
  DBEdit8.Time:=0;
  ADOQuery1C110_011.Value:=0;
  ADOQuery1C110_012.Value:=0;
  ADOQuery1C110_013.Value:=0;
  DBEdit1.SetFocus;
end;

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

procedure TCwa110_01Form.ActSaveExecute(Sender: TObject);
begin
//保存
  if trim(DBEdit1.Text)='' then
  begin
    ShowMsg('UMS10000205');  //班别编号不能为空
    DBEdit1.SetFocus;
    Abort;
  end;
  if AID<>ADOQuery1C110_002.Value then
  begin
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('select * from CWA110 where C110_002='+''''+trim(DBEdit1.Text)+'''');
    SYSDM.qryQuery.Open;
    if not SYSDM.qryQuery.IsEmpty then
    begin
      ShowMsg('UMS10000208');  //班别编号已存在，请重新输入
      DBEdit1.SetFocus;
      Abort;
    end;
  end;
  if trim(DBEdit2.Text)='' then
  begin
    ShowMsg('UMS10000206');  //班别名称不能为空
    DBEdit2.SetFocus;
    Abort;
  end;
{  if (DBEdit3.Time=0) and (DBEdit4.Time=0) and
     (DBEdit5.Time=0) and (DBEdit6.Time=0) and
     (DBEdit7.Time=0) and (DBEdit8.Time=0) then
  begin
    ShowMsg('UMS10000209');  //必须输入至少一组上下班时间
    DBEdit3.SetFocus;
    Abort;
  end;
  if ((trim(DBEdit3.Text)='00:00') and (trim(DBEdit4.Text)<>'00:00')) or
     ((trim(DBEdit3.Text)<>'00:00') and (trim(DBEdit4.Text)='00:00')) then
  begin
    ShowMsg('UMS10000210');  //上午上下班时间必须同时输入
    DBEdit3.SetFocus;
    Abort;
  end;
  if ((trim(DBEdit5.Text)='00:00') and (trim(DBEdit6.Text)<>'00:00')) or
     ((trim(DBEdit5.Text)<>'00:00') and (trim(DBEdit6.Text)='00:00')) then
  begin
    ShowMsg('UMS10000211');  //下午上下班时间必须同时输入
    DBEdit3.SetFocus;
    Abort;
  end;
  if ((trim(DBEdit7.Text)='00:00') and (trim(DBEdit8.Text)<>'00:00')) or
     ((trim(DBEdit7.Text)<>'00:00') and (trim(DBEdit8.Text)='00:00')) then
  begin
    ShowMsg('UMS10000212');  //晚上上下班时间必须同时输入
    DBEdit3.SetFocus;
    Abort;
  end; }
  ADOQuery1C110_004.Value:=FormatDateTime('hh:mm',DBEdit3.Time);
  ADOQuery1C110_005.Value:=FormatDateTime('hh:mm',DBEdit4.Time);
  ADOQuery1C110_006.Value:=FormatDateTime('hh:mm',DBEdit5.Time);
  ADOQuery1C110_007.Value:=FormatDateTime('hh:mm',DBEdit6.Time);
  ADOQuery1C110_008.Value:=FormatDateTime('hh:mm',DBEdit7.Time);
  ADOQuery1C110_009.Value:=FormatDateTime('hh:mm',DBEdit8.Time);
  ADOQuery1C110_011.Value:=ComboBox1.ItemIndex;
  ADOQuery1C110_012.Value:=ComboBox2.ItemIndex;
  ADOQuery1C110_013.Value:=ComboBox3.ItemIndex;

  inherited;
end;

procedure TCwa110_01Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  if ActSave.Enabled then Exit;
  AID:=ADOQuery1C110_002.Value;
  ComboBox1.ItemIndex:=ADOQuery1C110_011.AsInteger;
  ComboBox2.ItemIndex:=ADOQuery1C110_012.AsInteger;
  ComboBox3.ItemIndex:=ADOQuery1C110_013.AsInteger;
  if trim(ADOQuery1C110_004.AsString)<>'' then DBEdit3.Time:=ADOQuery1C110_004.AsDateTime;
  if trim(ADOQuery1C110_005.AsString)<>'' then DBEdit4.Time:=ADOQuery1C110_005.AsDateTime;
  if trim(ADOQuery1C110_006.AsString)<>'' then DBEdit5.Time:=ADOQuery1C110_006.AsDateTime;
  if trim(ADOQuery1C110_007.AsString)<>'' then DBEdit6.Time:=ADOQuery1C110_007.AsDateTime;
  if trim(ADOQuery1C110_008.AsString)<>'' then DBEdit7.Time:=ADOQuery1C110_008.AsDateTime;
  if trim(ADOQuery1C110_009.AsString)<>'' then DBEdit8.Time:=ADOQuery1C110_009.AsDateTime;
end;

procedure TCwa110_01Form.ADOQuery1C110_011GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //当日
    1:Text:=AType[1];  //明日
    2:Text:=AType[2];  //后日
  end;
end;

procedure TCwa110_01Form.ADOQuery1C110_012GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //当日
    1:Text:=AType[1];  //明日
    2:Text:=AType[2];  //后日
  end;
end;

procedure TCwa110_01Form.ADOQuery1C110_013GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //当日
    1:Text:=AType[1];  //明日
    2:Text:=AType[2];  //后日
  end;
end;

initialization
  RegisterClass(TCwa110_01Form);

finalization
  UnRegisterClass(TCwa110_01Form);

end.