监控中

非全屏 BorderStyle := bsSizeable;
 1 procedure TFrmMain.N2Click(Sender: TObject);
 2 begin
 3   { Position form }
 4   Top := 0 ;   
 5   Left := 0 ;   
 6   { Go full screen }
 7   BorderStyle := bsNone ;
 8   WindowState := wsmaximized;
 9   Width := Screen.Width;
10   Height := Screen.Height;
11   Refresh;
12   SetForegroundWindow(Handle) ;
13   SetActiveWindow(Application.Handle) ;
14   //禁用其他选项
15   MainMenu1.Items[0].Visible :=false;
16   MainMenu1.Items[1].Visible :=false;
17   MainMenu1.Items[3].Visible :=false;
18 end;
窗体最大化

//-----------TClientDataSet处理XML数据

 1 AdsData_TDeptList: TClientDataSet;
 2 
 3 AdsData_TDeptList.XMLData :=ls_Service.GetDeptListXml;
 4 with FrmMain.AdsData_TDeptList do
 5 begin
 6 //count:=0;
 7 close;
 8 open;
 9 first;
10 while not eof do
11 begin
12 //出票点基本信息
13 Dept_ID := fieldbyname('DEPTID').asinteger;
14 Dept_Component_Name := 'fDept' + fieldbyname('DEPTID').asstring;
15 Dept_Name := fieldbyname('DEPTNAME').asstring;
16 Dept_Print_Time := fieldbyname('LAST_GET_TICKET_TIME').asstring;;
17 Dept_Recipt_Time := fieldbyname('LAST_FEEDBACK_TIME').asstring;
18 // 获取报警信息
19 try
20 Alter_Msg := FrmMain.hs_MachineAlter.Values[IntToStr(Dept_ID)];
21 except
22 Alter_Msg := '';
23 end;
24 //竞彩
25 JC_NOT_PRINT_NUM := fieldbyname('JC_NOT_NUM').asinteger;
26 JC_NOT_PRINT_AMOUNT := fieldbyname('JC_NOT_AMOUNT').asinteger;
27 JC_BALANCE := fieldbyname('JC_BALANCE').asinteger;
28 JC_ACTIVE_M_NUM := fieldbyname('JC_ACTIVE_M_NUM').asinteger;
29 JC_BIG_TICKET_AMOUNT := fieldbyname('JC_AMOUNT_MORE_M_NUM').asinteger;
30 JC_M_COUNT := fieldbyname('JC_ALL_M_COUNT').asinteger;
31 JC_Capacity_M_COUNT := fieldbyname('JC_CN_M_NUM').asinteger;
32 JC_ACTIVE_AMPLE_M_NUM := fieldbyname('JC_AMOUNT_M_NUM').asinteger;
33 JC_ENABLED := fieldbyname('JC_ENABLED').asinteger;
34 JC_ALL_M_COUNT := JC_ALL_M_COUNT + JC_ACTIVE_AMPLE_M_NUM;
35 JC_ALL_BALANCE := JC_ALL_BALANCE + JC_BALANCE;
36 
37 //传统
38 CT_NOT_PRINT_NUM := fieldbyname('CT_NOT_NUM').asinteger;
39 CT_NOT_PRINT_AMOUNT := fieldbyname('CT_NOT_AMOUNT').asinteger;
40 CT_BALANCE := fieldbyname('CT_BALANCE').asinteger;
41 CT_ACTIVE_M_NUM := fieldbyname('CT_ACTIVE_M_NUM').asinteger;
42 CT_ACTIVE_AMPLE_M_NUM := fieldbyname('CT_AMOUNT_M_NUM').asinteger;
43 CT_BIG_TICKET_AMOUNT := fieldbyname('CT_AMOUNT_MORE_M_NUM').asinteger;
44 CT_M_COUNT := fieldbyname('CT_ALL_M_COUNT').asinteger;
45 CT_Capacity_M_COUNT := fieldbyname('CT_CN_M_NUM').asinteger;
46 CT_ENABLED := fieldbyname('CT_ENABLED').asinteger;
47 CT_ALL_M_COUNT := CT_ALL_M_COUNT + CT_ACTIVE_AMPLE_M_NUM;
48 CT_ALL_BALANCE := CT_ALL_BALANCE + CT_BALANCE;
49 
50 //北单
51 BD_NOT_PRINT_NUM := fieldbyname('BD_NOT_NUM').asinteger;
52 BD_NOT_PRINT_AMOUNT := fieldbyname('BD_NOT_AMOUNT').asinteger;
53 BD_BALANCE := fieldbyname('BD_BALANCE').asinteger;
54 BD_ACTIVE_M_NUM := fieldbyname('BD_ACTIVE_M_NUM').asinteger;
55 BD_ACTIVE_AMPLE_M_NUM := fieldbyname('BD_AMOUNT_M_NUM').asinteger;
56 BD_BIG_TICKET_AMOUNT := fieldbyname('BD_AMOUNT_MORE_M_NUM').asinteger;
57 BD_M_COUNT := fieldbyname('BD_ALL_M_COUNT').asinteger;
58 BD_Capacity_M_COUNT := fieldbyname('BD_CN_M_NUM').asinteger;
59 BD_ENABLED := fieldbyname('BD_ENABLED').asinteger;
60 BD_ALL_M_COUNT := BD_ALL_M_COUNT + BD_ACTIVE_AMPLE_M_NUM;
61 BD_ALL_BALANCE := BD_ALL_BALANCE + BD_BALANCE;
62 
63 //快彩
64 KC_NOT_PRINT_NUM := fieldbyname('KC_NOT_NUM').asinteger;
65 KC_NOT_PRINT_AMOUNT := fieldbyname('KC_NOT_AMOUNT').asinteger;
66 KC_BALANCE := fieldbyname('KC_BALANCE').asinteger;
67 KC_ACTIVE_M_NUM := fieldbyname('KC_ACTIVE_M_NUM').asinteger;
68 KC_ACTIVE_AMPLE_M_NUM := fieldbyname('KC_AMOUNT_M_NUM').asinteger;
69 KC_BIG_TICKET_AMOUNT := fieldbyname('KC_AMOUNT_MORE_M_NUM').asinteger;
70 KC_M_COUNT := fieldbyname('KC_ALL_M_COUNT').asinteger;
71 KC_Capacity_M_COUNT := fieldbyname('KC_CN_M_NUM').asinteger;
72 KC_ENABLED := fieldbyname('KC_ENABLED').asinteger;
73 KC_ALL_M_COUNT := KC_ALL_M_COUNT + KC_ACTIVE_AMPLE_M_NUM;
74 KC_ALL_BALANCE := KC_ALL_BALANCE + KC_BALANCE;
75 //窗体数据填充
76 case Dept_ID of
77 112,60,50,20,9 : Alter_Msg := '';
78 else
79 synchronize(SetIssueList);
80 end;
81 //
82 next;
83 end;
84 end;
TClientDataSet处理XML数据

//--------用TTimer监控线程是否死掉

 1 procedure TFrmMain.tmr_Check_LiveTimerTimer(Sender: TObject);
 2 begin
 3   if (pub_Runing_Count = old_pub_Runing_Count) then
 4   begin
 5     RefreshThread.Terminate;
 6     RefreshThread.Free;
 7     WaitForSingleObject(RefreshThread.Handle, 500);
 8     RefreshThread := nil;
 9     RefreshData;
10   end;
11   old_pub_Runing_Count:= pub_Runing_Count;
12 end;
TTimer监控线程是否死掉

 

posted @ 2015-04-10 16:43  海蓝7  阅读(168)  评论(0)    收藏  举报