serw00_01.pas.svn-base

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

unit SerW00_01;

interface

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

type
  TSerW00_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;
    ActSer500: TAction;
    ActSer510: TAction;
    ActSer520: 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;
    ActSer100: TAction;
    ActSer110: TAction;
    ActSerS00: TAction;
    N2: TMenuItem;
    N3: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    ActSer200: TAction;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    tlbSer100: TToolButton;
    ActLongin: TAction;
    ActPass: TAction;
    N40: TMenuItem;
    C1: TMenuItem;
    U1: TMenuItem;
    X1: TMenuItem;
    N41: TMenuItem;
    tvReports: TdxDBTreeView;
    tlbSer110: TToolButton;
    ToolButton4: TToolButton;
    tlbSer500: TToolButton;
    tlbSer510: TToolButton;
    ScrollBox1: TScrollBox;
    Panel5: TPanel;
    sbSearch: TSpeedButton;
    dbgMaster: TdxDBGrid;
    Panel6: TPanel;
    bbtnRefresh: TBitBtn;
    bbtnLocate: TBitBtn;
    bbtnSearch: TBitBtn;
    dsSer500: TDataSource;
    bbtnPrint: TBitBtn;
    lblClass: TLabel;
    adsReports: TADODataSet;
    dsReports: TDataSource;
    adsLists: TADODataSet;
    adsListsNum: TIntegerField;
    adsListsName: TStringField;
    adsListsParent: TIntegerField;
    adsReportsCode: TStringField;
    adsReportsName: TStringField;
    imgReports: TImageList;
    tlbSer520: TToolButton;
    ToolButton13: TToolButton;
    tlbExit: TToolButton;
    popInsert: TPopupMenu;
    miIncome: TMenuItem;
    miPayment: TMenuItem;
    miTransfer: TMenuItem;
    MenuItem1: TMenuItem;
    miBorrow: TMenuItem;
    miLend: TMenuItem;
    bbtnUpdate: TBitBtn;
    bbtnDelete: TBitBtn;
    bbtnInsert: TBitBtn;
    cbTasClass: TComboBox;
    tlbFile: TToolButton;
    tlbEdit: TToolButton;
    tlbReport: TToolButton;
    tlbHelp: TToolButton;
    tvLists: TdxDBTreeView;
    Image1: TImage;
    tlbSer530: TToolButton;
    ActSer530: TAction;
    N5: TMenuItem;
    bbtnExcel: TBitBtn;
    N32: TMenuItem;
    qrySer500: TADOQuery;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    ActSer300: TAction;
    ActSer310: TAction;
    N24: TMenuItem;
    N36: TMenuItem;
    D1: TMenuItem;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExport: TAction;
    ActOpen: TAction;
    N44: TMenuItem;
    ActSer600: TAction;
    ActSer610: TAction;
    N46: TMenuItem;
    N47: TMenuItem;
    N49: TMenuItem;
    ToolButton1: TToolButton;
    tlbSer600: TToolButton;
    tlbSer610: TToolButton;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    qryTas100: TADOQuery;
    qrySer500S500_001: TWideStringField;
    qrySer500S500_002: TWideStringField;
    qrySer500S100_002: TWideStringField;
    qrySer500S110_003: TWideStringField;
    qrySer500S500_005: TSmallintField;
    qrySer500S500_006: TSmallintField;
    qrySer500S500_007: TDateTimeField;
    qrySer500S500_008: TIntegerField;
    qrySer500S500_009: TBCDField;
    qrySer500H150_002: TWideStringField;
    qrySer500H150_003: TWideStringField;
    qrySer500S500_011: TWideStringField;
    qrySer500S500_012: TWideStringField;
    qrySer500S500_013: TWideStringField;
    qrySer500S500_014: TWideStringField;
    qrySer500S500_015: TSmallintField;
    qrySer500S500_016: TWideStringField;
    qrySer500O150_002: TWideStringField;
    qrySer500O150_003: TWideStringField;
    qrySer500I150_002: TStringField;
    qrySer500I150_003: TStringField;
    qrySer500S500_019: TWideStringField;
    qrySer500S500_020: TBooleanField;
    qrySer500S500_027: TBooleanField;
    qrySer500S500_028: TDateTimeField;
    qrySer500S500_029: TDateTimeField;
    qrySer500S500_030: TDateTimeField;
    qrySer500S500_031: TDateTimeField;
    qrySer500S500_032: TSmallintField;
    qrySer500S500_033: TMemoField;
    qrySer500S500_034: TDateTimeField;
    qrySer500S500_035: TWideStringField;
    qrySer500S500_036: TDateTimeField;
    qrySer500S500_037: TWideStringField;
    qrySer500S500_003: TIntegerField;
    qrySer500S500_004: TIntegerField;
    qrySer500S500_010: TIntegerField;
    qrySer500S500_017: TIntegerField;
    qrySer500S500_018: TIntegerField;
    qrySer500H150_001: TAutoIncField;
    qrySer500O150_001: TAutoIncField;
    qrySer500S110_005: TIntegerField;
    dbgMasterS500_001: TdxDBGridColumn;
    dbgMasterS500_002: TdxDBGridColumn;
    dbgMasterS100_002: TdxDBGridColumn;
    dbgMasterS110_003: TdxDBGridColumn;
    dbgMasterS500_005: TdxDBGridMaskColumn;
    dbgMasterS500_006: TdxDBGridMaskColumn;
    dbgMasterS500_007: TdxDBGridDateColumn;
    dbgMasterS500_008: TdxDBGridMaskColumn;
    dbgMasterS500_009: TdxDBGridCurrencyColumn;
    dbgMasterH150_002: TdxDBGridColumn;
    dbgMasterH150_003: TdxDBGridColumn;
    dbgMasterS500_011: TdxDBGridColumn;
    dbgMasterS500_012: TdxDBGridColumn;
    dbgMasterS500_013: TdxDBGridColumn;
    dbgMasterS500_014: TdxDBGridColumn;
    dbgMasterS500_015: TdxDBGridMaskColumn;
    dbgMasterS500_016: TdxDBGridColumn;
    dbgMasterO150_002: TdxDBGridColumn;
    dbgMasterO150_003: TdxDBGridColumn;
    dbgMasterI150_002: TdxDBGridLookupColumn;
    dbgMasterI150_003: TdxDBGridLookupColumn;
    dbgMasterS500_019: TdxDBGridColumn;
    dbgMasterS500_020: TdxDBGridCheckColumn;
    dbgMasterS500_027: TdxDBGridCheckColumn;
    dbgMasterS500_028: TdxDBGridDateColumn;
    dbgMasterS500_029: TdxDBGridDateColumn;
    dbgMasterS500_030: TdxDBGridDateColumn;
    dbgMasterS500_031: TdxDBGridDateColumn;
    dbgMasterS500_032: TdxDBGridMaskColumn;
    dbgMasterS500_034: TdxDBGridDateColumn;
    dbgMasterS500_035: TdxDBGridColumn;
    dbgMasterS500_036: TdxDBGridDateColumn;
    dbgMasterS500_037: TdxDBGridColumn;
    dbgMasterS110_005: TdxDBGridMaskColumn;
    ActSer400: TAction;
    ActSer410: TAction;
    ActSer420: TAction;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    ActOpenTask: TAction;
    ActNewTask: TAction;
    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 ActSerS00Execute(Sender: TObject);
    procedure ActSer100Execute(Sender: TObject);
    procedure ActSer120Execute(Sender: TObject);
    procedure ActPassExecute(Sender: TObject);
    procedure ActLonginExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure ActSer500Execute(Sender: TObject);
    procedure ActSer510Execute(Sender: TObject);
    procedure ActSer520Execute(Sender: TObject);
    procedure ActSer530Execute(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 tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure tvListsDblClick(Sender: TObject);
    procedure cbTasClassChange(Sender: TObject);
    procedure dbgMasterDblClick(Sender: TObject);
    procedure dbgDetailDblClick(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 dbgMasterCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure qrySer500FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure qrySer500S500_006GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure qrySer500S500_015GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ActSer600Execute(Sender: TObject);
    procedure ActSer610Execute(Sender: TObject);
    procedure ActSer200Execute(Sender: TObject);
    procedure ActSer300Execute(Sender: TObject);
    procedure ActSer310Execute(Sender: TObject);
    procedure ActSer400Execute(Sender: TObject);
    procedure ActSer410Execute(Sender: TObject);
    procedure ActSer430Execute(Sender: TObject);
    procedure ActOpenExecute(Sender: TObject);
    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);
    procedure qrySer500S500_008GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ActOpenTaskExecute(Sender: TObject);
    procedure ActNewTaskExecute(Sender: TObject);
  private
    AType:array[0..2] of string;
    AFrom:array[0..3] of string;
    AIsColor:Boolean;
    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
  SerW00_01Form: TSerW00_01Form;

implementation

uses CommFun, SYSDATA, HwRegister, Welcome, Sys600_01, Sys700_01,
  Ser500_02, Tas510_02, TasComm, ErpMain, HwExport;

{$R *.dfm}

//取得所有任务类别
procedure TSerW00_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('SERW0001105');  //所有任务
  ADataSet.FieldByName('Parent').Value:=0;
  ADataSet.Post;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('select * from SER100');
{  if ASuper then
  begin
    SYSDM.qryQuery.SQL.Add('select * from SER100');
  end else
  begin
    SYSDM.qryQuery.SQL.Add('select B.* from SYS500C A, SER100 B');
    SYSDM.qryQuery.SQL.Add('where A.S500C_002=B.T100_001 and A.S500C_003=''SER'' 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('S100_001').Value;
    ADataSet.FieldByName('Name').Value:=SYSDM.qryQuery.FieldByName('S100_002').Value;
    ADataSet.FieldByName('Parent').Value:=SYSDM.qryQuery.FieldByName('S100_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 TSerW00_01Form.SetInterface;
begin
  Caption:=GetDBString('SERW0001001');  //服务管理平台
  tlbFile.Caption:=GetDBString('SERW0001002');   //基本资料(&F)
  tlbEdit.Caption:=GetDBString('SERW0001003');   //服务管理(&M)
  tlbReport.Caption:=GetDBString('SERW0001004');   //查询报表(&R)
  tlbHelp.Caption:=GetDBString('SERW0001005');   //帮助(&H)

  ActSerS00.Caption:=GetDBString('SERW0001006');  //服务管理参数
  ActSer100.Caption:=GetDBString('SERW0001007');  //服务类别维护
  ActSer110.Caption:=GetDBString('SERW0001008');  //来电状态维护

  ActPass.Caption:=GetDBString('SERW0001009');  //更改登录密码(&C)...
  ActLongin.Caption:=GetDBString('SERW0001010');  //更换操作员(&U)...
  ActExit.Caption:=GetDBString('SERW0001011');  //退出(&X)