?? main.pas
字號:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons, shellapi,
OleCtrls, ImgList, Db, DBTables, jpeg, Mask, Grids, XPMenu,Registry, IniFiles;
type
TFormMain = class(TForm)
ImageListStatus: TImageList;
ImageBkGd: TImage;
StatusBarMain: TStatusBar;
ToolbarImages: TImageList;
XPMenuMain: TXPMenu;
Query1: TQuery;
MainMenu: TMainMenu;
System: TMenuItem;
SystemLogin: TMenuItem;
SystemExit: TMenuItem;
System_SpitOne: TMenuItem;
SystemWake: TMenuItem;
SystemIssueInfo: TMenuItem;
SystemAffiche: TMenuItem;
System_SpitTwo: TMenuItem;
SystemClose: TMenuItem;
Archives: TMenuItem;
ArchivesCustInfo: TMenuItem;
ArchivesGroupInfo: TMenuItem;
ArchivesCompete: TMenuItem;
ValidateCust: TMenuItem;
Service: TMenuItem;
ServiceCust: TMenuItem;
ServiceGroup: TMenuItem;
ServiceBarterCard: TMenuItem;
ServiceEconBuyCard: TMenuItem;
ServiceAppeal: TMenuItem;
Manager: TMenuItem;
ManagerAchives: TMenuItem;
ManagerDistribute: TMenuItem;
ManagerAdmination: TMenuItem;
ManagerLog: TMenuItem;
ManagerSMSSend: TMenuItem;
Query: TMenuItem;
QueryStru: TMenuItem;
QueryReckoning: TMenuItem;
QueryCapture: TMenuItem;
QueryOperationUse: TMenuItem;
QueryArrearage: TMenuItem;
QueryCustHistory: TMenuItem;
QueryEnjoyService: TMenuItem;
QueryIntegral: TMenuItem;
QueryBirthday: TMenuItem;
QueryAppeal: TMenuItem;
Analyze: TMenuItem;
AnalyzeFancy: TMenuItem;
AnalyzeGroupComp: TMenuItem;
AnalyzeCustComp: TMenuItem;
AnalyzeOpertion: TMenuItem;
Setup: TMenuItem;
SetupFeast: TMenuItem;
SetupCalling: TMenuItem;
SetupDiploma: TMenuItem;
SetupAppeal: TMenuItem;
SetupSMS: TMenuItem;
Setupservmode: TMenuItem;
Setupservtype: TMenuItem;
Setupservquality: TMenuItem;
SetupGrade: TMenuItem;
SetupPara: TMenuItem;
SetupPerview: TMenuItem;
SetupUserLog: TMenuItem;
Windows: TMenuItem;
Help: TMenuItem;
HelpAbout: TMenuItem;
Windows_MinAll: TMenuItem;
AnalyzeIntegral: TMenuItem;
QueryGradeOrder: TMenuItem;
AnalyzeAppeal: TMenuItem;
QueryReckoningM: TMenuItem;
AnalyzeGradeStru: TMenuItem;
Windows_MaxAll: TMenuItem;
Windows_CloseAll: TMenuItem;
Windows_RestoreAll: TMenuItem;
Windows_AutoArr: TMenuItem;
MenuItemHelpContent: TMenuItem;
OpenDialogHelpFile: TOpenDialog;
HelpVersionUpdate: TMenuItem;
N1: TMenuItem;
SetupPurManager: TMenuItem;
N2: TMenuItem;
Setupinditop: TMenuItem;
Setupindititle: TMenuItem;
ManagerOperate: TMenuItem;
setupservicetopic: TMenuItem;
QueryACTFEE: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SystemCloseClick(Sender: TObject);
procedure SpeedButtonLogoutClick(Sender: TObject);
procedure StatusBarMainDrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel; const Rect: TRect);
procedure FormShow(Sender: TObject);
procedure MenuItemRestoreAllClick(Sender: TObject);
procedure MenuItemMinimizeAllClick(Sender: TObject);
procedure MenuItemHelpContentClick(Sender: TObject);
procedure SpeedButtonloginClick(Sender: TObject);
procedure SpeedButtonlockClick(Sender: TObject);
procedure SystemExitClick(Sender: TObject);
procedure SystemWakeClick(Sender: TObject);
procedure SystemAfficheClick(Sender: TObject);
procedure SystemIssueInfoClick(Sender: TObject);
procedure SetupPerviewClick(Sender: TObject);
procedure ValidateCustClick(Sender: TObject);
procedure ManagerSMSSendClick(Sender: TObject);
procedure ManagerDistributeClick(Sender: TObject);
procedure QueryStruClick(Sender: TObject);
procedure ArchivesCustInfoClick(Sender: TObject);
procedure AnalyzeCustCompClick(Sender: TObject);
procedure AnalyzeGroupCompClick(Sender: TObject);
procedure QueryReckoningClick(Sender: TObject);
procedure QueryCaptureClick(Sender: TObject);
procedure QueryOperationUseClick(Sender: TObject);
procedure QueryArrearageClick(Sender: TObject);
procedure QueryCustHistoryClick(Sender: TObject);
procedure QueryEnjoyServiceClick(Sender: TObject);
procedure QueryIntegralClick(Sender: TObject);
procedure QueryBirthdayClick(Sender: TObject);
procedure QueryAppealClick(Sender: TObject);
procedure QureyOperationClick(Sender: TObject);
procedure QueryParticularClick(Sender: TObject);
procedure QueryNoEnjoyServiceClick(Sender: TObject);
procedure QueryInterestClick(Sender: TObject);
procedure QueryReplaceGatheringClick(Sender: TObject);
procedure QueryAccountBalanceClick(Sender: TObject);
procedure ArchivesGroupInfoClick(Sender: TObject);
procedure AnalyzeFancyClick(Sender: TObject);
procedure ArchivesCompeteClick(Sender: TObject);
procedure ServiceBarterCardClick(Sender: TObject);
procedure ServiceEconBuyCardClick(Sender: TObject);
procedure AnalyzeOpertionClick(Sender: TObject);
procedure ManagerAdminationClick(Sender: TObject);
procedure SetupFeastClick(Sender: TObject);
procedure SetupCallingClick(Sender: TObject);
procedure SetupDiplomaClick(Sender: TObject);
procedure SetupAppealClick(Sender: TObject);
procedure SetupSMSClick(Sender: TObject);
procedure SetupAccessingClick(Sender: TObject);
procedure SetupGradeClick(Sender: TObject);
procedure SetupParaClick(Sender: TObject);
procedure SetupUserLogClick(Sender: TObject);
procedure SetupservqualityClick(Sender: TObject);
procedure SetupservtypeClick(Sender: TObject);
procedure SetupservmodeClick(Sender: TObject);
procedure HelpAboutClick(Sender: TObject);
procedure AnalyzeIntegralClick(Sender: TObject);
procedure ManagerLogClick(Sender: TObject);
procedure ServiceCustClick(Sender: TObject);
procedure ManagerAchivesClick(Sender: TObject);
procedure ServiceGroupClick(Sender: TObject);
procedure QueryGradeOrderClick(Sender: TObject);
procedure ServiceAppealClick(Sender: TObject);
procedure QueryReckoningMClick(Sender: TObject);
procedure AnalyzeAppealClick(Sender: TObject);
procedure AnalyzeGradeStruClick(Sender: TObject);
procedure Windows_AutoArrClick(Sender: TObject);
procedure Windows_MinAllClick(Sender: TObject);
procedure Windows_MaxAllClick(Sender: TObject);
procedure Windows_CloseAllClick(Sender: TObject);
procedure Windows_RestoreAllClick(Sender: TObject);
procedure HelpVersionUpdateClick(Sender: TObject);
procedure SetupPurManagerClick(Sender: TObject);
procedure SetupinditopClick(Sender: TObject);
procedure SetupindititleClick(Sender: TObject);
procedure ManagerOperateClick(Sender: TObject);
procedure setupservicetopicClick(Sender: TObject);
procedure QueryACTFEEClick(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
FClientInstance,
FPrevClientProc : TFarProc;
procedure ClientWndProc(VAR Message: TMessage);
public
{ Public declarations }
AppVersion: String;
V_gl_str_xdwjbh,v_gl_str_jhbh :string;
procedure ShowHint(Sender: TObject);
procedure MyHandleException(Sender: TObject;E: Exception);
function ExistMDIChild(ChildForm: TForm): Boolean;
procedure InitiateControl(Connected: Boolean);
Procedure GongGaoXinXi;
procedure Pro_OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
procedure GP_SetButtonPos(Aname:TWincontrol);//自動設置按鈕的位置
procedure InitiateMenu;
end;
var
FormMain: TFormMain;
//定義全局變量
JX: integer; //當前操作員所屬局向
GH: string; //當前操作員工號
ManagerName:String;
JBDM: integer; //操作員級別代碼
roomid: integer;
PS_HomeName : String;//局向名稱
PS_CityNo : String; //地市代碼
PS_CityName : String;//地市名稱
PS_ConnStr : string;//全局連接符
DHHM: string; //當前處理欠費號碼
LstJX: TStringList; //局向列表
IdxJX: integer; //初始局向列表序號
LstValue: array[0..255] of string; //列表值數組,最大256元素
LogTry:integer; //登錄失敗次數
sele_nbr:integer;
//用來做線程防止多線程共同申請資源時出現死鎖
ZqsMutex:THandle=0;
ID:String; //記錄用戶日志ID
RegCity:String; //注冊地市
const
{Declare constants we're interested in}
eKeyViol = 9729;
eRequiredFieldMissing = 9732;
eForeignKey = 9733;
eDetailsExist = 9734;
eNotNull = 13059;
MyKEY = 12345;
implementation
{$R *.DFM}
uses
dmmain,//數據模塊
login,//登錄窗體
crypt,
FunctionP,
ProcedureP,
unit_ArchivesCustInfo,//個人客戶檔案
Unit_CompMana,//競爭對手檔案
unit_ValidateCust,//大客戶驗證管理
//大客戶分配管理
Unit_ManagerSMSSend,//短信發送
Unit_QueryStru,//大客戶構成查詢
Unit_QueryCapture,//大客戶繳費銷賬查詢
Unit_QueryOperationUse,//大客戶業務使用查詢
unit_QueryArrearage,//大客戶欠費信息查詢
unit_QueryCustHistory,//個人歷史資料查詢
unit_queryindiservice,//大客戶服務查詢
unit_QueryIntegral,//大客戶積分查詢
Unit_QueryReckoning,//大客戶話費查詢
unit_QueryBirthday,//大客戶生日查詢
Unit_QueryAppeal,//大客戶投訴查詢
Unit_AnalyzeGroupComp,//集團客戶構成分析
Unit_AnalyzeCustComp,//個人客戶構成分析
Unit_AnalyzeCustFancy,//個人大客戶喜好構成
rygl,//人員管理模塊
Unit_SystemAffiche,//公告欄
Unit_SystemIssueInfo,//信息發布
Unit_ManagerDistribute,
Unit_ServiceBarterCard,//免費換卡
Unit_ServiceEconBuyCard,//優惠購卡
// Unit_QureyOperation,
Unit_ManagerAdmination, //消費用戶及集團數量統計
Unit_AnalyzeOpertion, //新業務使用構成
Unit_ArchivesGroupInfo, //集團用戶管理
Unit_ManagerAchives,//大客戶經理檔案管理
Unit_SetupFeast, //節日配置
Unit_SetupCalling, // 行業配置
Unit_SetupDiploma, //學歷配置
Unit_SetupAppeal, //投訴配置
Unit_SetupSMS, //短信息配置
Unit_Setupservtype, //大客戶訪問設置
Unit_SetupGrade, //大客戶登記配置
Unit_about,//關于
Unit_SetupPara,
Unit_UserLog,
Unit_Setupservquality,
Unit_Setupservmode,
Unit_AnalyzeIntegral, //系統參數配置
Unit_Serverlog, //服務日志
Unit_CustIndiServ,
Unit_SystemWake,
Unit_GroupIndiServ,
Unit_QueryGradeOrder,
Unit_ServiceAppeal,
Unit_QueryReckoningM,
Unit_SetupServiceTopic, //個性化服務標題設置
Unit_ManagerOperate, //大客戶業務處理
Unit_AnalyzeAppeal, //投訴分析
Unit_Setupindititle, //客戶喜好小標題
Unit_SetupIndiTop, //客戶喜好大標題
Unit_HelpVersionUpdate, //版本更新說明
Unit_SetupPurManager, //級別權限設置
Unit_QueryActFee, //客戶現金余額
Unit_AnalyzeGradeStru, Unit_ImportData, xt_bffa_frm_main,
xt_sjbf_frm_main, xt_sjhf_frm_main, RgtFunctionMaintainFrmMain, RgtRole,
RgtRoleFunction
// Unit_QueryAppeal//個人個性化服務
;
{
*****************************************************************
* *
* 編寫作者：黃志文 編寫時間：2002-06-28 *
* *
* 函數名稱：Pro_OpenForm *
* 內容版本：V1.0.0.0 *
* 函數功能：判斷將要打開的窗體是否已經打開，如果打開則顯示在 *
* 最前面，否則建立該窗體并打開 *
* 傳入參數：pFormClass、pFormName *
* 參數說明： *
* pFormClass 窗體的類 *
* pFormName 窗體名稱 (字符串) *
* 返 回 值：無 *
* *
* 基本要求： *
* 注意事項： *
* *
*****************************************************************
}
procedure TFormMain.Pro_OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
i : integer;
Child : TForm;
begin
try
for i := 0 to Screen.FormCount -1 do
if Screen.Forms[i].ClassType=FormClass then
begin
Child:=Screen.Forms[i];
if Child.WindowState=wsMinimized then
ShowWindow(Child.handle,SW_SHOWNA)
else
ShowWindow(Child.handle,SW_SHOWNA);
if (not Child.Visible) then Child.Visible:=True;
Child.BringToFront;
Child.Setfocus;
Child.Position := poMainFormCenter;
TForm(fm) := Child;
exit;
end;
Child := TForm(FormClass.NewInstance);
TForm(fm) := Child;
Child.Create(AOwner);
except
end;
end;
procedure TFormMain.GP_SetButtonPos(Aname:TWincontrol);//自動設置按鈕的位置
var
i,j,num,v_left:integer;
v_button:array of Tbutton;
begin
with Aname do
begin
num:=0;
for i:=0 to ControlCount-1 do
begin
if controls[i] is Tbutton then
begin
inc(num);
end;
end;
if num<>0 then
begin
setlength(v_button,num);
for i:=0 to ControlCount-1 do
begin
num:=0;
if controls[i] is Tbutton then
begin
for j:=0 to ControlCount-1 do
begin
if controls[j] is Tbutton then
begin
if Tbutton(controls[i]).Left>Tbutton(controls[j]).left then
inc(num);
end;
end;
v_button[num]:=Tbutton(controls[i]);
end;
end;
v_left:=v_button[high(v_button)].Left+v_button[high(v_button)].width;
for i:=high(v_button) downto 0 do
begin
if v_button[i].visible=true then
begin
v_button[i].Left:=v_left-v_button[i].width;
v_left:=v_button[i].Left;
end;
end;
end;
end;
end;
procedure TFormMain.InitiateControl(Connected: Boolean);
var
i : Integer;
begin
if not Connected then
begin
StatusBarMain.Panels[1].Text := '';
StatusBarMain.Panels[3].Text := '';
StatusBarMain.Panels[5].Text := '';
StatusBarMain.Panels[7].Text := '';
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -