cwa150_02.pas.svn-base

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

unit Cwa150_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, Buttons, ADODB;

type
  TCwa150_02Form = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    lblUnit: TLabel;
    lblType: TLabel;
    cbUnit: TComboBox;
    cbType: TComboBox;
    lblCode: TLabel;
    lblName: TLabel;
    edtCode: TEdit;
    edtName: TEdit;
    Panel1: TPanel;
    Image1: TImage;
    TabSheet3: TTabSheet;
    Bevel1: TBevel;
    bbtnBack: TBitBtn;
    bbtnNext: TBitBtn;
    bbtnExit: TBitBtn;
    lblStartMsg1: TLabel;
    lblStartMsg2: TLabel;
    lblStartMsg3: TLabel;
    lblInput: TLabel;
    lblFinishMsg1: TLabel;
    lblFinishMsg2: TLabel;
    lblFinishMsg3: TLabel;
    lblFinishMsg5: TLabel;
    lblFinishMsg6: TLabel;
    lblFinishMsg4: TLabel;
    cbActive: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnBackClick(Sender: TObject);
    procedure bbtnNextClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    AFunction:String;
    procedure SetInterface;
    { Private declarations }
  public
    AMode:string;
    AOldCode:string;
    ADataSet:TADOQuery;
    { Public declarations }
  end;

var
  Cwa150_02Form: TCwa150_02Form;

implementation

uses CommFun, SYSDATA, HwFormula;

{$R *.dfm}

procedure TCwa150_02Form.SetInterface;
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('CWA15002001');  //考勤项目设置向导
  bbtnBack.Caption:=GetDBString('CWA15002002');  //上一步(&B)
  bbtnNext.Caption:=GetDBString('CWA15002003');  //下一步(&N)
  bbtnExit.Caption:=GetDBString('CWA15002004');  //退出(&X)
  lblStartMsg1.Caption:=GetDBString('CWA15002005');  //该向导将帮助您正确设置考勤项目设置。
  lblStartMsg2.Caption:=GetDBString('CWA15002006');  //请输入项目编号、项目名称，计量单位、项目类型，并设置其他相关信息。
  lblStartMsg3.Caption:=GetDBString('CWA15002007');  //要继续，请单击“下一步”。
  lblInput.Caption:=GetDBString('CWA15002008');  //请输入下列信息后，再请单击“下一步”继续。

  lblCode.Caption:=GetDBString('CWA15002009');  //项目编号
  lblName.Caption:=GetDBString('CWA15002010');  //项目名称
  lblUnit.Caption:=GetDBString('CWA15002011');  //计量单位
  lblType.Caption:=GetDBString('CWA15002012');  //项目类型

  lblFinishMsg1.Caption:=GetDBString('CWA15002014');  //您已经成功的设置了下列考勤项目：
  lblFinishMsg2.Caption:=GetDBString('CWA15002009')+': ';  //项目编号
  lblFinishMsg3.Caption:=GetDBString('CWA15002010')+': ';  //项目名称
  lblFinishMsg4.Caption:=GetDBString('CWA15002011')+': ';  //计量单位
  lblFinishMsg5.Caption:=GetDBString('CWA15002012')+': ';  //项目类型
  lblFinishMsg6.Caption:=GetDBString('CWA15002015');  //单击“完成”，将保存该考勤项目的设置信息。

  cbUnit.Items.Clear;
  cbUnit.Items.Add(GetDBString('CWA15002016'));  //分钟
  cbUnit.Items.Add(GetDBString('CWA15002017'));  //小时
  cbUnit.Items.Add(GetDBString('CWA15002018'));  //天
  cbUnit.Items.Add(GetDBString('CWA15002019'));  //次
  cbUnit.Items.Add(GetDBString('CWA15002020'));  //月
  cbUnit.Items.Add(GetDBString('CWA15002021'));  //年
  cbUnit.ItemIndex:=0;

  cbType.Items.Clear;
  cbType.Items.Add(GetDBString('CWA15002022'));  //按考勤事务处理
  cbType.Items.Add(GetDBString('CWA15002023'));  //按公式计算
  cbType.ItemIndex:=0;
  cbActive.Caption:=GetDBString('CWA15002024');  //是否使用
  PageControl1.ActivePageIndex:=0;
end;

procedure TCwa150_02Form.FormCreate(Sender: TObject);
begin
  SetInterface;
  AFunction:='';
end;

procedure TCwa150_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//
end;

procedure TCwa150_02Form.bbtnBackClick(Sender: TObject);
begin
//上一步(&B)
  PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1;
  bbtnBack.Enabled:=PageControl1.ActivePageIndex<>0;
  if PageControl1.ActivePageIndex=2 then
    bbtnNext.Caption:=GetDBString('CWA15002013')  //完成
  else
    bbtnNext.Caption:=GetDBString('CWA15002003');  //下一步(&N)
end;

procedure TCwa150_02Form.bbtnNextClick(Sender: TObject);
var
  ASeqNo:Integer;
begin
//下一步(&N)
  if PageControl1.ActivePageIndex=1 then
  begin
    if trim(edtCode.Text)='' then
    begin
      ShowMsg('UMS10000219');  //项目编号不能为空
      edtCode.SetFocus;
      Abort;
    end;
    if AOldCode<>trim(edtCode.Text) then
    begin
      if IsExists('select 1 from CWA150 where C150_002='+''''+trim(edtCode.Text)+'''') then
      begin
        ShowMsg('UMS10000223');  //项目编号已存在，请重新输入
        edtCode.SetFocus;
        Abort;
      end;
    end;
    if trim(edtName.Text)='' then
    begin
      ShowMsg('UMS10000220');  //项目名称不能为空
      edtName.SetFocus;
      Abort;
    end;
    if trim(cbUnit.Text)='' then
    begin
      ShowMsg('UMS10000221');  //计量单位不能为空
      cbUnit.SetFocus;
      Abort;
    end;
    if trim(cbType.Text)='' then
    begin
      ShowMsg('UMS10000222');  //项目类型不能为空
      cbType.SetFocus;
      Abort;
    end;
    if cbType.ItemIndex=1 then  //按公式计算
    begin
      HwFormulaForm:=THwFormulaForm.Create(Application);
      HwFormulaForm.AMode:=AMode;
      if AMode='ADD' then
      begin
        HwFormulaForm.AItemNo:=0;
        HwFormulaForm.RichEdit1.Text:='';
      end else if AMode='UPD' then
      begin
        HwFormulaForm.AItemNo:=ADataSet.FieldByName('C150_001').Value;
        HwFormulaForm.RichEdit1.Text:=ADataSet.FieldByName('C150_006').Value;
        CodeColors(HwFormulaForm.RichEdit1,False);
      end;
      HwFormulaForm.AItemID:=trim(edtCode.Text);
      HwFormulaForm.AItemNm:=trim(edtName.Text);
      HwFormulaForm.AType:='CWA';
      if HwFormulaForm.ShowModal=1 then
        AFunction:=HwFormulaForm.RichEdit1.Text
      else
        Abort;
    end;
  end else
  //完成
  if PageControl1.ActivePageIndex=2 then
  begin
    if AMode='ADD' then
    begin
      ASeqNo:=GetValue('select max(C150_007) from CWA150')+1;
      ADataSet.Insert;
      ADataSet.FieldByName('C150_002').Value:=trim(edtCode.Text);
      ADataSet.FieldByName('C150_003').Value:=trim(edtName.Text);
      ADataSet.FieldByName('C150_004').Value:=cbType.ItemIndex;
      ADataSet.FieldByName('C150_005').Value:=cbUnit.ItemIndex;
      if cbType.ItemIndex=1 then  //按公式计算
      begin
        ADataSet.FieldByName('C150_006').Value:=AFunction;
      end;
      ADataSet.FieldByName('C150_007').Value:=ASeqNo;
      ADataSet.FieldByName('C150_008').Value:=cbActive.Checked;
      ADataSet.Post;
    end else
    begin
      ADataSet.Edit;
      ADataSet.FieldByName('C150_002').Value:=trim(edtCode.Text);
      ADataSet.FieldByName('C150_003').Value:=trim(edtName.Text);
      ADataSet.FieldByName('C150_004').Value:=cbType.ItemIndex;
      ADataSet.FieldByName('C150_005').Value:=cbUnit.ItemIndex;
      if cbType.ItemIndex=1 then  //按公式计算
      begin
        ADataSet.FieldByName('C150_006').Value:=AFunction;
      end;
      ADataSet.FieldByName('C150_008').Value:=cbActive.Checked;
      ADataSet.Post;
    end;
    Close;
  end;
  PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex+1;
  bbtnBack.Enabled:=PageControl1.ActivePageIndex<>0;
  bbtnNext.Caption:=GetDBString('CWA15002003');  //下一步(&N)

  if PageControl1.ActivePageIndex=1 then edtCode.SetFocus
  else if PageControl1.ActivePageIndex=2 then
  begin
    bbtnNext.Caption:=GetDBString('CWA15002013');  //完成
    lblFinishMsg2.Caption:=GetDBString('CWA15002009')+': '+edtCode.Text;  //项目编号
    lblFinishMsg3.Caption:=GetDBString('CWA15002010')+': '+edtName.Text;  //项目名称
    lblFinishMsg4.Caption:=GetDBString('CWA15002011')+': '+cbUnit.Text;  //计量单位
    lblFinishMsg5.Caption:=GetDBString('CWA15002012')+': '+cbType.Text;  //项目类型
  end;
end;

procedure TCwa150_02Form.bbtnExitClick(Sender: TObject);
begin
//退出(&X)
  Close;
end;

end.