?? resw00_01.pas.svn-base
字號:
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:='';
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -