📄 sysw00_01.pas.svn-base
字号:
unit SysW00_01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ToolWin, ImgList, Menus, ExtCtrls, Buttons, ActnList,
Db, Registry, dxtree, dxdbtree, ADODB, ShellApi, dxExEdtr,
dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms;
type
TSysW00_01Form = class(TForm)
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
MainMenu1: TMainMenu;
ImageList1: TImageList;
Animate1: TAnimate;
ToolBar2: TToolBar;
tlbBack: TToolButton;
tlbForword: TToolButton;
Panel1: TPanel;
ComboBox1: TComboBox;
mmiFile: TMenuItem;
mmiView: TMenuItem;
mmiHelp: TMenuItem;
mmiBackup: TMenuItem;
N2: TMenuItem;
mmiContents: TMenuItem;
mmiAbout: TMenuItem;
ToolButton6: TToolButton;
tlbUp: TToolButton;
tlbView: TToolButton;
ToolButton9: TToolButton;
spbGoTo: TSpeedButton;
mmiTools: TMenuItem;
mmiLongin: TMenuItem;
mmiExit: TMenuItem;
mmiRights: TMenuItem;
mmiPass: TMenuItem;
mmiNew: TMenuItem;
Panel2: TPanel;
Panel3: TPanel;
Splitter1: TSplitter;
SpeedButton2: TSpeedButton;
mmiBack: TMenuItem;
mmiForward: TMenuItem;
mmiUp: TMenuItem;
N7: TMenuItem;
mmiTool: TMenuItem;
mmiSate: TMenuItem;
N10: TMenuItem;
mmiLarge: TMenuItem;
mmiSmall: TMenuItem;
mmiList: TMenuItem;
mmiDetail: TMenuItem;
PopupMenu1: TPopupMenu;
miLarge: TMenuItem;
miSmall: TMenuItem;
miList: TMenuItem;
miDetail: TMenuItem;
N15: TMenuItem;
mmiLog: TMenuItem;
N18: TMenuItem;
mmiRegister: TMenuItem;
tlbLogin: TToolButton;
ToolButton12: TToolButton;
tlbExit: TToolButton;
mmiModule: TMenuItem;
ActionList1: TActionList;
ActNew: TAction;
ActManager: TAction;
ActBackup: TAction;
ActLongin: TAction;
ActBack: TAction;
mmiSetup: TMenuItem;
ActForward: TAction;
ActUp: TAction;
ActTool: TAction;
ActSate: TAction;
ActModule: TAction;
ActLarge: TAction;
ActSmall: TAction;
ActList: TAction;
ActDetail: TAction;
ActRights: TAction;
ActPass: TAction;
ActLog: TAction;
ActSetup: TAction;
ActReg: TAction;
ActContents: TAction;
ActAbout: TAction;
PrinterSetupDialog1: TPrinterSetupDialog;
PopupMenu2: TPopupMenu;
PopupMenu3: TPopupMenu;
ImageList2: TImageList;
TreeView1: TdxDBTreeView;
dsSys500B: TDataSource;
ImageList3: TImageList;
ImageList4: TImageList;
qrySys500B: TADOQuery;
mmiManager: TMenuItem;
mmiRestore: TMenuItem;
N1: TMenuItem;
N6: TMenuItem;
mmiEamil: TMenuItem;
ActEmail: TAction;
ActRestore: TAction;
ActExit: TAction;
ActCompress: TAction;
mmiCompress: TMenuItem;
ActHomePage: TAction;
mmiHome: TMenuItem;
ActOptions: TAction;
N4: TMenuItem;
mmiParams: TMenuItem;
PopupMenu4: TPopupMenu;
G1: TMenuItem;
M1: TMenuItem;
L1: TMenuItem;
D1: TMenuItem;
N5: TMenuItem;
R2: TMenuItem;
ActRefresh: TAction;
N8: TMenuItem;
R3: TMenuItem;
N9: TMenuItem;
qrySys500D: TADOQuery;
qrySys500DS500D_007: TStringField;
ActAlter: TAction;
N11: TMenuItem;
mmiAlter: TMenuItem;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ListView1: TListView;
dxDBGrid1: TdxDBGrid;
qrySys500BS500D_001: TStringField;
qrySys500BS500D_002: TStringField;
qrySys500DS500D_001: TStringField;
qrySys500DS500D_003: TDateTimeField;
qrySys500DS500D_004: TStringField;
dxDBGrid1S910_002: TdxDBGridDateColumn;
dxDBGrid1S910_003: TdxDBGridMaskColumn;
dxDBGrid1S910_004: TdxDBGridMaskColumn;
PopupMenu5: TPopupMenu;
mmiReaded: TMenuItem;
ActUpgrade: TAction;
mmiUpgrade: TMenuItem;
tlbFile: TToolButton;
tlbViews: TToolButton;
tlbTools: TToolButton;
tlbHelp: TToolButton;
qrySys500BS500D_007: TWideStringField;
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ActNewExecute(Sender: TObject);
procedure ActManagerExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActBackupExecute(Sender: TObject);
procedure ActBackExecute(Sender: TObject);
procedure ActForwardExecute(Sender: TObject);
procedure ActUpExecute(Sender: TObject);
procedure ActToolExecute(Sender: TObject);
procedure ActSateExecute(Sender: TObject);
procedure ActModuleExecute(Sender: TObject);
procedure ActLargeExecute(Sender: TObject);
procedure ActSmallExecute(Sender: TObject);
procedure ActListExecute(Sender: TObject);
procedure ActDetailExecute(Sender: TObject);
procedure ActRightsExecute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLogExecute(Sender: TObject);
procedure ActSetupExecute(Sender: TObject);
procedure ActRegExecute(Sender: TObject);
procedure ActContentsExecute(Sender: TObject);
procedure ActAboutExecute(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
var Accept: Boolean);
procedure tlbViewClick(Sender: TObject);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure spbGoToClick(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
procedure ListView1Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure ListView1KeyPress(Sender: TObject; var Key: Char);
procedure ListView1Resize(Sender: TObject);
procedure qrySys500BAfterScroll(DataSet: TDataSet);
procedure ActRestoreExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActEmailExecute(Sender: TObject);
procedure ActCompressExecute(Sender: TObject);
procedure ActHomePageExecute(Sender: TObject);
procedure ActOptionsExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure qrySys500DCalcFields(DataSet: TDataSet);
procedure ActAlterExecute(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 ActUpgradeExecute(Sender: TObject);
private
ColumnToSort: Integer;
procedure VisibleMenuItem(APopupMenu:TPopupMenu);
procedure LoadTreeItem;
procedure SetInterface;
{ Private declarations }
public
LastNode:TTreeNode;
{ Public declarations }
end;
var
SysW00_01Form: TSysW00_01Form;
implementation
uses CommFun, SYSDATA, HwRegister, Sys000_01, Sys100_01, Sys300_01, Sys400_01,
Sys410_01, Sys500_01, Sys600_01, Sys700_01, Sys800_01, Welcome, Sys900_01,
Sys910_01, Wait, ErpMain, CshW00_01, CwaW00_01, PayW00_01,
HrmW00_01;
{$R *.DFM}
{$R hw.res}
procedure TSysW00_01Form.SetInterface;
begin
//设置公司名称
Caption:=GetDBString('HWERP100061'); //主控面板
mmiFile.Caption:=GetDBString('HWERP100002'); //文件(&F)
mmiView.Caption:=GetDBString('HWERP100003'); //查看(&V)
mmiTools.Caption:=GetDBString('HWERP100004'); //工具(&T)
mmiHelp.Caption:=GetDBString('HWERP100005'); //帮助(&H)
ActNew.Caption:=GetDBString('HWERP100006'); //新建帐套(&N)...
ActManager.Caption:=GetDBString('HWERP100007'); //帐套管理(&M)...
ActBackup.Caption:=GetDBString('HWERP100008'); //数据备份(&B)...
ActRestore.Caption:=GetDBString('HWERP100009'); //数据恢复(&S)...
ActCompress.Caption:=GetDBString('HWERP100010'); //压缩整理(&R)
ActExit.Caption:=GetDBString('HWERP100011'); //退出(&X)
ActBack.Caption:=GetDBString('HWERP100012'); //后退(&B)
ActForward.Caption:=GetDBString('HWERP100013'); //前进(&F)
ActUp.Caption:=GetDBString('HWERP100014'); //向上一级(&U)
ActTool.Caption:=GetDBString('HWERP100015'); //工具栏((&T)
ActSate.Caption:=GetDBString('HWERP100016'); //状态栏(&S)
ActModule.Caption:=GetDBString('HWERP100017'); //模块夹(&O)
ActLarge.Caption:=GetDBString('HWERP100018'); //大图标(&G)
ActSmall.Caption:=GetDBString('HWERP100019'); //小图标(&M)
ActList.Caption:=GetDBString('HWERP100020'); //列表(&L)
ActDetail.Caption:=GetDBString('HWERP100021'); //详细资料(&D)...
ActRefresh.Caption:=GetDBString('HWERP100051'); //刷新(&R)
ActLongin.Caption:=GetDBString('HWERP100022'); //更换操作员(&U)...
ActPass.Caption:=GetDBString('HWERP100023'); //更改登录密码(&C)...
ActRights.Caption:=GetDBString('HWERP100024'); //用户权限管理(&R)...
ActLog.Caption:=GetDBString('HWERP100025'); //上机日志明细(&L)...
ActSetup.Caption:=GetDBString('HWERP100026'); //添加删除模块(&S)...
ActOptions.Caption:=GetDBString('HWERP100048'); //系统参数(&P)...
ActAlter.Caption:=GetDBString('HWERP100052'); //预警条件设置(&A)...
ActContents.Caption:=GetDBString('HWERP100027'); //帮助主题(&H)
ActEmail.Caption:=GetDBString('HWERP100028'); //写信给作者(&E)...
ActHomePage.Caption:=GetDBString('HWERP100049'); //网上浩晖(&P)...
ActAbout.Caption:=GetDBString('HWERP100029'); //关于浩晖(&A)...
ActReg.Caption:=GetDBString('HWERP100050'); //软件注册(&R)...
ActUpgrade.Caption:=GetDBString('HWERP100060'); //在线智能升级(&U)...
tlbFile.Caption:=GetDBString('HWERP100002'); //文件(&F)
tlbViews.Caption:=GetDBString('HWERP100003'); //查看(&V)
tlbTools.Caption:=GetDBString('HWERP100004'); //工具(&T)
tlbHelp.Caption:=GetDBString('HWERP100005'); //帮助(&H)
tlbBack.Caption:=GetDBString('HWERP100030'); //后退
tlbForword.Caption:=GetDBString('HWERP100031'); //前进
tlbUp.Caption:=GetDBString('HWERP100032'); //向上
tlbView.Caption:=GetDBString('HWERP100033'); //查看
tlbLogin.Caption:=GetDBString('HWERP100034'); //注销
tlbExit.Caption:=GetDBString('HWERP100035'); //退出
Panel1.Caption:=GetDBString('HWERP100036'); //程序模块(&D)
spbGoTo.Caption:=GetDBString('HWERP100037'); //转到
Panel3.Caption:=GetDBString('HWERP100038'); //模块夹
miLarge.Caption:=ActLarge.Caption; //大图标(&G)
miSmall.Caption:=ActSmall.Caption; //小图标(&M)
miList.Caption:=ActList.Caption; //列表(&L)
miDetail.Caption:=ActDetail.Caption; //详细资料(&D)...
TabSheet1.Caption:=GetDBString('HWERP100053'); //程序列表
TabSheet2.Caption:=GetDBString('HWERP100054'); //预警消息
ListView1.Columns[0].Caption:=GetDBString('HWERP100039'); //程序名称
ListView1.Columns[1].Caption:=GetDBString('HWERP100040'); //程序编号
ListView1.Columns[2].Caption:=GetDBString('HWERP100041'); //操作时间
ListView1.Columns[3].Caption:=GetDBString('HWERP100042'); //操作人员
PageControl1.ActivePageIndex:=0;
mmiReaded.Caption:=GetDBString('COM00006008'); //标识为“已阅读”
end;
procedure TSysW00_01Form.VisibleMenuItem(APopupMenu:TPopupMenu);
var
I:Integer;
begin
for I:=0 to APopupMenu.Items.Count-1 do
begin
APopupMenu.Items[I].Visible:=I<9;
end;
end;
procedure TSysW00_01Form.LoadTreeItem;
var
AStream:TMemoryStream;
begin
qrySys500B.Close;
qrySys500B.SQL.Clear;
if ASuper then
begin
qrySys500B.SQL.Add('select S500D_001,S500D_002 from SYS500B,SYS500D where S500B_002=S500D_011 and S500B_011=''C'' and S500D_006='+GetBoolean(True)+' and S500B_001='+IntToStr(AUserID)+' order by S500D_005,S500D_002,S500D_001');
end else
begin
qrySys500B.SQL.Add('select S500D_001,S500D_002 from SYS500B,SYS500D where S500B_002=S500D_011 and S500B_011=''C'' and S500D_006='+GetBoolean(True)+' and S500B_001='+IntToStr(AUserID)+' and S500B_004='+GetBoolean(True)+' order by S500D_005,S500D_002,S500D_001');
end;
qrySys500B.Open;
if TreeView1.Items.Count>0 then
begin
if TreeView1.TopItem=nil then TreeView1.TopItem.Selected:=True;
LastNode:=TreeView1.Selected;
end else
LastNode:=nil;
AStream:=TMemoryStream.Create;
TreeView1.SaveToStream(AStream);
AStream.Position:=0;
ComboBox1.Items.Clear;
ComboBox1.Items.LoadFromStream(AStream);
ComboBox1.ItemIndex:=0;
AStream.Free;
end;
procedure TSysW00_01Form.FormActivate(Sender: TObject);
begin
Animate1.ResName:='HOWWELL';
Animate1.Play(1,100,0);
ComboBox1.SetFocus;
end;
procedure TSysW00_01Form.FormCreate(Sender: TObject);
begin
ActNew.Enabled:=ASuper;
ActManager.Enabled:=ASuper;
ActBackup.Enabled:=ASuper;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -