resw00_01.pas.svn-base

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

unit ResW00_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ExtCtrls, ADODB, ActnList, Menus, ImgList,
  dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls, dxtree,
  dxdbtree, Buttons, ToolWin, StdCtrls, ShellApi, wwdbdatetimepicker;

type
  TResW00_01Form = class(TForm)
    Splitter1: TSplitter;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    Animate1: TAnimate;
    ToolBar2: TToolBar;
    Panel2: TPanel;
    pnLists: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1S910_002: TdxDBGridDateColumn;
    dxDBGrid1S910_003: TdxDBGridMaskColumn;
    dxDBGrid1S910_004: TdxDBGridMaskColumn;
    MainMenu1: TMainMenu;
    mmiFile: TMenuItem;
    mmiEdit: TMenuItem;
    mmiHelp: TMenuItem;
    mmiContents: TMenuItem;
    mmiEamil: TMenuItem;
    mmiHome: TMenuItem;
    mmiUpgrade: TMenuItem;
    N9: TMenuItem;
    mmiAbout: TMenuItem;
    N1: TMenuItem;
    mmiRegister: TMenuItem;
    imgButton: TImageList;
    ActionList1: TActionList;
    ActRes500: TAction;
    ActRes510: TAction;
    ActRes520: TAction;
    ActContents: TAction;
    ActEmail: TAction;
    ActHomePage: TAction;
    ActAbout: TAction;
    ActReg: TAction;
    ActExit: TAction;
    ActUpgrade: TAction;
    dsLists: TDataSource;
    imgPage: TImageList;
    PopupMenu5: TPopupMenu;
    mmiReaded: TMenuItem;
    Panel1: TPanel;
    pnReports: TPanel;
    Splitter2: TSplitter;
    mmiReport: TMenuItem;
    ActResS00: TAction;
    N2: TMenuItem;
    ActRes200: TAction;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ActLongin: TAction;
    ActPass: TAction;
    N40: TMenuItem;
    C1: TMenuItem;
    U1: TMenuItem;
    X1: TMenuItem;
    N41: TMenuItem;
    tvReports: TdxDBTreeView;
    tlbTas500: TToolButton;
    tlbTas510: TToolButton;
    ScrollBox1: TScrollBox;
    Panel5: TPanel;
    sbSearch: TSpeedButton;
    dbgMaster: TdxDBGrid;
    Panel6: TPanel;
    bbtnRefresh: TBitBtn;
    bbtnLocate: TBitBtn;
    bbtnSearch: TBitBtn;
    dsRes530: TDataSource;
    bbtnPrint: TBitBtn;
    lblClass: TLabel;
    adsReports: TADODataSet;
    dsReports: TDataSource;
    adsLists: TADODataSet;
    adsListsNum: TIntegerField;
    adsListsName: TStringField;
    adsListsParent: TIntegerField;
    adsReportsCode: TStringField;
    adsReportsName: TStringField;
    imgReports: TImageList;
    tlbTas520: TToolButton;
    ToolButton13: TToolButton;
    tlbExit: TToolButton;
    adsDetail: TADODataSet;
    dbgDetail: TdxDBGrid;
    dsDetail: TDataSource;
    dbgDetailBILDT: TdxDBGridDateColumn;
    dbgDetailBILNO: TdxDBGridMaskColumn;
    dbgDetailMEMO: TdxDBGridMaskColumn;
    dbgDetailAMT01: TdxDBGridCurrencyColumn;
    dbgDetailAMT02: TdxDBGridCurrencyColumn;
    dbgDetailAMT03: TdxDBGridCurrencyColumn;
    popInsert: TPopupMenu;
    miIncome: TMenuItem;
    miPayment: TMenuItem;
    miTransfer: TMenuItem;
    MenuItem1: TMenuItem;
    miBorrow: TMenuItem;
    miLend: TMenuItem;
    MenuItem2: TMenuItem;
    miInput: TMenuItem;
    miOutput: TMenuItem;
    bbtnUpdate: TBitBtn;
    bbtnDelete: TBitBtn;
    bbtnInsert: TBitBtn;
    cbTasClass: TComboBox;
    tlbFile: TToolButton;
    tlbEdit: TToolButton;
    tlbReport: TToolButton;
    tlbHelp: TToolButton;
    tvLists: TdxDBTreeView;
    Image1: TImage;
    tlbTas530: TToolButton;
    ActRes530: TAction;
    N5: TMenuItem;
    bbtnExcel: TBitBtn;
    N32: TMenuItem;
    qryRes530: TADOQuery;
    qryRes530T510_001: TWideStringField;
    qryRes530T510_002: TWideStringField;
    qryRes530T120_003: TWideStringField;
    qryRes530T100_002: TWideStringField;
    qryRes530T510_005: TSmallintField;
    qryRes530T510_006: TDateTimeField;
    qryRes530T510_007: TDateTimeField;
    qryRes530T510_008: TSmallintField;
    qryRes530T510_009: TWideStringField;
    qryRes530T510_011: TWideStringField;
    qryRes530T510_012: TBCDField;
    qryRes530T510_013: TBCDField;
    qryRes530T510_014: TBCDField;
    qryRes530T510_015: TIntegerField;
    qryRes530O150_002: TWideStringField;
    qryRes530O150_003: TWideStringField;
    qryRes530O150_005: TWideStringField;
    qryRes530O150_012: TWideStringField;
    qryRes530O151_002: TWideStringField;
    qryRes530O151_004: TWideStringField;
    qryRes530O150_007: TWideStringField;
    qryRes530I150_002: TWideStringField;
    qryRes530I150_003: TWideStringField;
    qryRes530I150_004: TWideStringField;
    qryRes530I120_003: TWideStringField;
    qryRes530M150_002: TWideStringField;
    qryRes530M150_003: TWideStringField;
    qryRes530T510_018: TWideStringField;
    qryRes530T510_019: TMemoField;
    qryRes530T510_020: TDateTimeField;
    qryRes530T510_021: TWideStringField;
    qryRes530T510_022: TDateTimeField;
    qryRes530T510_023: TWideStringField;
    qryRes530T510_003: TIntegerField;
    qryRes530T510_004: TIntegerField;
    qryRes530T510_010: TIntegerField;
    qryRes530T510_016: TIntegerField;
    qryRes530T510_017: TIntegerField;
    qryRes530T510_024: TIntegerField;
    qryTas120: TADOQuery;
    qryOrd150: TADOQuery;
    qryOrd151: TADOQuery;
    qryTas100: TADOQuery;
    qryHrm150: TADOQuery;
    qryInv150: TADOQuery;
    qryRes530H150_002: TStringField;
    qryRes530H150_003: TStringField;
    qryRes530T120_005: TIntegerField;
    qryRes530T510_025: TDateTimeField;
    qryRes530T510_026: TDateTimeField;
    qryRes530T510_027: TDateTimeField;
    qryRes530T510_028: TDateTimeField;
    C2: TMenuItem;
    T1: TMenuItem;
    D1: TMenuItem;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExport: TAction;
    ActClose: TAction;
    ActReturn: TAction;
    ActOpenTask: TAction;
    ActNewTask: TAction;
    ActOpenReport: TAction;
    ActNewReport: TAction;
    ActOpen: TAction;
    N44: TMenuItem;
    imgLists: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure dbgMasterBackgroundDrawEvent(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect);
    procedure ActResS00Execute(Sender: TObject);
    procedure ActPassExecute(Sender: TObject);
    procedure ActLonginExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure ActRes500Execute(Sender: TObject);
    procedure ActRes510Execute(Sender: TObject);
    procedure ActRes520Execute(Sender: TObject);
    procedure ActRes530Execute(Sender: TObject);
    procedure ActContentsExecute(Sender: TObject);
    procedure ActEmailExecute(Sender: TObject);
    procedure ActHomePageExecute(Sender: TObject);
    procedure ActAboutExecute(Sender: TObject);
    procedure ActRegExecute(Sender: TObject);
    procedure ActUpgradeExecute(Sender: TObject);
    procedure sbSearchClick(Sender: TObject);
    procedure tvReportsDblClick(Sender: TObject);
    procedure dbgDetailBackgroundDrawEvent(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect);
    procedure tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure tvListsDblClick(Sender: TObject);
    procedure cbTasClassChange(Sender: TObject);
    procedure dbgMasterDblClick(Sender: TObject);
    procedure dbgDetailDblClick(Sender: TObject);
    procedure ActRes200Execute(Sender: TObject);
    procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
      const AText: String; AFont: TFont; var AColor: TColor; ASelected,
      AFocused: Boolean; var ADone: Boolean);
    procedure mmiReadedClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure qryRes530FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExportExecute(Sender: TObject);
  private
    AStringList:TStringList;
    procedure GetAllTasksClass(ADataSet:TADODataSet;AcbClass:TComboBox);
    procedure SetInterface;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant);
    procedure FilterDialogSelectField(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ResW00_01Form: TResW00_01Form;

implementation

uses CommFun, SYSDATA, HwRegister, Welcome, Sys600_01, Sys700_01,
  ErpMain, HwExport;

{$R *.dfm}

//取得所有任务类别
procedure TResW00_01Form.GetAllTasksClass(ADataSet:TADODataSet;AcbClass:TComboBox);
begin
  ADataSet.Close;
  ADataSet.LockType:=ltBatchOptimistic;
  ADataSet.FieldDefs.Clear;
  ADataSet.FieldDefs.Add('Num',ftInteger,0);
  ADataSet.FieldDefs.Add('Name',ftString,100);
  ADataSet.FieldDefs.Add('Parent',ftInteger,0);
  ADataSet.CreateDataSet;
  ADataSet.Append;
  ADataSet.FieldByName('Num').Value:=0;
  ADataSet.FieldByName('Name').Value:=GetDBString('RESW0001114');  //所有任务
  ADataSet.FieldByName('Parent').Value:=0;
  ADataSet.Post;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from RES100');
{  if ASuper then
  begin
    SYSDM.qryQuery.SQL.Add('select * from RES100');
  end else
  begin
    SYSDM.qryQuery.SQL.Add('select B.* from SYS500C A, RES100 B');
    SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.R100_001 and A.S500C_003=''RES'' and A.S500C_004='+GetBoolean(True)+' and A.S500C_001='+IntToStr(AUserID));
  end; }
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    ADataSet.Append;
    ADataSet.FieldByName('Num').Value:=SYSDM.qryQuery.FieldByName('R100_001').Value;
    ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('R100_002').Value;
    ADataSet.FieldByName('Parent').Value:=SYSDM.qryQuery.FieldByName('R100_003').Value;
    ADataSet.Post;
    SYSDM.qryQuery.Next;
  end;

  ADataSet.First;
  AcbClass.Clear;
  while not ADataSet.Eof do
  begin
    AcbClass.Items.Add(ADataSet.FieldByName('Name').AsString);
    ADataSet.Next;
  end;
  ADataSet.First;
  AcbClass.ItemIndex:=0;
end;

procedure TResW00_01Form.SetInterface;
begin
  Caption:=GetDBString('RESW0001001');  //资源管理平台
  tlbFile.Caption:=GetDBString('RESW0001002');   //基本资料(&F)
  tlbEdit.Caption:=GetDBString('RESW0001003');   //资源管理(&M)
  tlbReport.Caption:=GetDBString('RESW0001004');   //查询报表(&R)
  tlbHelp.Caption:=GetDBString('RESW0001005');   //帮助(&H)
  ActResS00.Caption:=GetDBString('RESW0001006');  //资源管理参数
  ActPass.Caption:=GetDBString('RESW0001021');  //更改登录密码(&C)...
  ActLongin.Caption:=GetDBString('RESW0001022');  //更换操作员(&U)...
  ActExit.Caption:=GetDBString('RESW0001023');  //退出(&X)

  ActRes500.Caption:=GetDBString('RESW0001024');  //变量函数维护
  ActRes510.Caption:=GetDBString('RESW0001025');  //基础窗体维护
  ActRes520.Caption:=GetDBString('RESW0001026');  //系统参数维护
  ActRes530.Caption:=GetDBString('RESW0001027');  //程序编码维护

  ActRes200.Caption:=GetDBString('RESW0001028');  //变量函数查询

  ActContents.Caption:=GetDBString('RESW0001042');	//帮助主题(&H)
  ActEmail.Caption:=GetDBString('RESW0001043');	//写信给作者(&E)...
  ActHomePage.Caption:=GetDBString('RESW0001044');	//网上浩晖(&P)...
  ActAbout.Caption:=GetDBString('RESW0001045');	//关于浩晖(&A)...
  ActReg.Caption:=GetDBString('RESW0001046');	//软件注册(&R)...
  ActUpgrade.Caption:=GetDBString('RESW0001047');	//在线智能升级(&U)...

  tlbTas500.Caption:=GetDBString('RESW0001051');  //变量函数
  tlbTas510.Caption:=GetDBString('RESW0001052');  //基础窗体
  tlbTas520.Caption:=GetDBString('RESW0001053');  //系统参数
  tlbTas530.Caption:=GetDBString('RESW0001054');  //程序编码
  tlbExit.Caption:=GetDBString('RESW0001055');  //退出

  pnLists.Caption:=GetDBString('RESW0001056');  //程序类别
  pnReports.Caption:=GetDBString('RESW0001057');  //查询报表
  TabSheet1.Caption:=GetDBString('RESW0001058');  //程序编码
  TabSheet2.Caption:=GetDBString('RESW0001059');  //预警信息

  lblClass.Caption:=GetDBString('RESW0001060');  //类别
  sbSearch.Caption:=GetDBString('RESW0001062');  //查询
  ActInsert.Caption:=GetDBString('RESW0001063');  //新增(&A)
  ActUpdate.Caption:=GetDBString('RESW0001064');  //修改(&E)
  ActDelete.Caption:=GetDBString('RESW0001065');  //删除(&D)
  ActRefresh.Caption:=GetDBString('RESW0001066');  //刷新(&R)
  ActLocate.Caption:=GetDBString('RESW0001067');  //查找(&F)
  ActSearch.Caption:=GetDBString('RESW0001068');  //查询(&S)
  ActPrint.Caption:=GetDBString('RESW0001069');  //打印(&P)
  ActExport.Caption:=GetDBString('RESW0001070');  //导出(&E)

//  qryRes530R530_001.DisplayLabel:=GetDBString('RESW0001073');  //任务编号

  PageControl1.ActivePageIndex:=0;

  mmiReaded.Caption:=GetDBString('COM00006008');  //标识为“已阅读”
end;

procedure TResW00_01Form.FormCreate(Sender: TObject);
var
  ARights:string;
begin
  AStringList:=TStringList.Create;
  SetInterface;

  //查询报表
  GetAllReport(adsReports,ActionList1,'RES');
  //取得所有资源类别
//  GetAllTasksClass(adsLists,cbTasClass);
//  sbSearch.Click;
  //取得权限
  ARights:=GetRights('RES530','RES');  
  ActOpen.Enabled:=ARights[1]='Y';
  ActInsert.Enabled:=ARights[2]='Y';
  ActUpdate.Enabled:=ARights[3]='Y';
  ActDelete.Enabled:=ARights[4]='Y';
  ActRefresh.Enabled:=ARights[1]='Y';
  ActLocate.Enabled:=ARights[1]='Y';
  ActSearch.Enabled:=ARights[1]='Y';
  ActPrint.Enabled:=ARights[5]='Y';
  ActExport.Enabled:=ARights[5]='Y';

  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure TResW00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  AStringList.Free;
  Action := caFree;
end;

procedure TResW00_01Form.FormActivate(Sender: TObject);
begin
  Animate1.ResName:='HOWWELL';
  Animate1.Play(1,100,0);
  AModule:='RES';
end;

procedure TResW00_01Form.dbgMasterBackgroundDrawEvent(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect);
var
  AText:string;
begin
  ARect.Left:=0;
  ARect.Top:=0;
  ACanvas.Brush.Color:=dbgMaster.GroupPanelColor;
  ACanvas.Font.Color:=dbgMaster.GroupPanelFontColor;
  //您可以把列标题拖放到此处使记录按此列进行分组
  if dbgMaster.GroupColumnCount=0 then AText:=' '+GetDBString('NOT10001012') else AText:='';