cwa170_01.pas.svn-base

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

unit Cwa170_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
  dxDBCtrl, dxCntner, ActnList, DB, ADODB, 
  Menus, ExtCtrls, ComCtrls, ToolWin;

type
  TCwa170_01Form = class(TBas100_01Form)
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbLocate: TToolButton;
    ToolButton5: TToolButton;
    tlbPrint: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    mmiPrint: TMenuItem;
    mmiExport: TMenuItem;
    dsCwa170: TDataSource;
    qryCwa170: TADOQuery;
    qryCwa170C170_001: TIntegerField;
    qryCwa170C170_002: TIntegerField;
    qryCwa170C170_004: TDateTimeField;
    qryCwa170C170_005: TDateTimeField;
    SaveDialog1: TSaveDialog;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExport: TAction;
    ActSet: TAction;
    ActExit: TAction;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    qryCwa170C170_003: TStringField;
    qryCwa170C170_006: TStringField;
    ScrollBox1: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1C170_001: TdxDBGridMaskColumn;
    dxDBGrid1C170_002: TdxDBGridMaskColumn;
    dxDBGrid1C170_003: TdxDBGridColumn;
    dxDBGrid1C170_004: TdxDBGridDateColumn;
    dxDBGrid1C170_005: TdxDBGridDateColumn;
    dxDBGrid1C170_006: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ReportGetValue(const ParName: String;
      var ParValue: Variant);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExportExecute(Sender: TObject);
    procedure ActSetExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cwa170_01Form: TCwa170_01Form;

implementation

uses Cwa170_02, CommFun, SYSDATA;

{$R *.dfm}

procedure TCwa170_01Form.SetInterface;
begin
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('CWA17001001');  //薪资期段维护

  ActFirst.Caption:=GetDBString('COM00005001');  //最前
  ActPrior.Caption:=GetDBString('COM00005002');  //上移
  ActNext.Caption:=GetDBString('COM00005003');  //下移
  ActLast.Caption:=GetDBString('COM00005004');  //最后
  ActLocate.Caption:=GetDBString('COM00005011');  //查找
  ActSearch.Caption:=GetDBString('COM00005012');  //查询
  ActPrint.Caption:=GetDBString('COM00005013');  //打印
  ActExport.Caption:=GetDBString('COM00005014');  //导出数据
  ActSet.Caption:=GetDBString('CWA17001002');  //设置
  ActExit.Caption:=GetDBString('COM00005015');  //退出
  
  qryCwa170C170_001.DisplayLabel:=GetDBString('CWA17001003');  //年份
  qryCwa170C170_002.DisplayLabel:=GetDBString('CWA17001004');  //期段
  qryCwa170C170_003.DisplayLabel:=GetDBString('CWA17001005');  //期段说明
  qryCwa170C170_004.DisplayLabel:=GetDBString('CWA17001006');  //起始日期
  qryCwa170C170_005.DisplayLabel:=GetDBString('CWA17001007');  //结束日期
  qryCwa170C170_006.DisplayLabel:=GetDBString('CWA17001008');  //备注
end;

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

procedure TCwa170_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryCwa170.Close;
end;

procedure TCwa170_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='USENM' then ParValue:=AUserName
  else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006')  //列印日期
  else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007')  //列印人員
  else if ParName='REPNM' then ParValue:=AReportTitle

  else if ParName='C170_001' then ParValue:=GetDBString('CWA17001003')  //年份
  else if ParName='C170_002' then ParValue:=GetDBString('CWA17001004')  //期段
  else if ParName='C170_003' then ParValue:=GetDBString('CWA17001005')  //期段说明
  else if ParName='C170_004' then ParValue:=GetDBString('CWA17001006')  //起始日期
  else if ParName='C170_005' then ParValue:=GetDBString('CWA17001007')  //结束日期
  else if ParName='C170_006' then ParValue:=GetDBString('CWA17001008')  //备注
end;

procedure TCwa170_01Form.ActFirstExecute(Sender: TObject);
begin
  inherited;
//最前
  if qryCwa170.IsEmpty then Exit;
  qryCwa170.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure TCwa170_01Form.ActPriorExecute(Sender: TObject);
begin
  inherited;
//上移
  if qryCwa170.IsEmpty then Exit;
  qryCwa170.Prior;
  ActNext.Enabled:=not qryCwa170.Eof;
  ActLast.Enabled:=not qryCwa170.Eof;
  ActFirst.Enabled:=not qryCwa170.Bof;
  ActPrior.Enabled:=not qryCwa170.Bof;
end;

procedure TCwa170_01Form.ActNextExecute(Sender: TObject);
begin
  inherited;
//下移
  if qryCwa170.IsEmpty then Exit;
  qryCwa170.Next;
  ActNext.Enabled:=not qryCwa170.Eof;
  ActLast.Enabled:=not qryCwa170.Eof;
  ActFirst.Enabled:=not qryCwa170.Bof;
  ActPrior.Enabled:=not qryCwa170.Bof;
end;

procedure TCwa170_01Form.ActLastExecute(Sender: TObject);
begin
  inherited;
//最后
  if qryCwa170.IsEmpty then Exit;
  qryCwa170.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure TCwa170_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if qryCwa170.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Exit;
  end;
  LocateDialog(dsCwa170);
end;

procedure TCwa170_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  FilterDialog(dsCwa170);
end;

procedure TCwa170_01Form.ActPrintExecute(Sender: TObject);
begin
  inherited;
//打印
  SelectReport(qryCwa170,AProgramID,AReportName,ReportGetValue);
end;

procedure TCwa170_01Form.ActExportExecute(Sender: TObject);
begin
  inherited;
//导出到Excel
  if qryCwa170.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SaveToExcel(dxDBGrid1);
end;

procedure TCwa170_01Form.ActSetExecute(Sender: TObject);
begin
  inherited;
//设置
  Cwa170_02Form:=TCwa170_02Form.Create(Application);
  Cwa170_02Form.ShowModal;
  qryCwa170.Close;
  qryCwa170.Open;
end;

procedure TCwa170_01Form.ActExitExecute(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

initialization
  RegisterClass(TCwa170_01Form);

finalization
  UnRegisterClass(TCwa170_01Form);

end.