📄 main.pas
字号:
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls, ComCtrls, ImgList, Buttons, ToolWin,
ExtCtrls,Commctrl, Grids, DBGrids, jpeg, OleCtrls, MSCommLib_TLB, MPlayer,u_public;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
ImageList1: TImageList;
MainMenu1: TMainMenu;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N16: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N9: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
ToolButton1: TToolButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Panel1: TPanel;
ToolButton5: TToolButton;
SpeedButton13: TSpeedButton;
Panel2: TPanel;
Timer1: TTimer;
Panel3: TPanel;
Panel4: TPanel;
Label4: TLabel;
Label5: TLabel;
Panel5: TPanel;
ProgressBar1: TProgressBar;
ProgressBar2: TProgressBar;
ProgressBar3: TProgressBar;
Panel6: TPanel;
Splitter2: TSplitter;
Panel7: TPanel;
Shape3: TShape;
Shape2: TShape;
Shape1: TShape;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
Panel8: TPanel;
Memo1: TMemo;
MSComm1: TMSComm;
N33: TMenuItem;
Edit1: TEdit;
Button1: TButton;
Splitter3: TSplitter;
Music: TMediaPlayer;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
Procedure GNovisible;//管理人员, 将一些菜单不可见
procedure FormShow(Sender: TObject);
procedure ShowMenu;//显示所有菜单
Procedure PNoVisible; //普通人员, 将一些菜单不可见
Procedure Call(Number: String);//拨号
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N5Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Deleteloghc;//删除日志缓冲表中的数据
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure MSComm1Comm(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure N38Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
LogRecord = record
lcbh: String;
xmmc: String;
sbsj: String;
end;
var
Form1: TForm1;
Czy: String;
LogArray: Array[0..100]of LogRecord;
xmmc: Array[0..200] of String;//记录接受到的项目名称
index: integer =0;//xmmc数组索引
Num: Integer = 0;//延时30秒
id: integer = 0;//缓冲标识
Czybh: String;//记录当前登录的操作员编号, 由于操作员密码不允许相同,所以可以通过
//操作员密码确定操作员编号
Czymm: String;
State: Integer=0;//控制信号灯的状态,0正常,1发生报警,2连接有误
implementation
uses TjCzy,XgCzy,ScCzy,Xtdl,XgCzymm,Bjxmtj,Bjxmsg,Bjxmsc,dkgl,
bjcltj,lcxxtj,lcxxxg,lcxxsc,bjclxg,bjclsc,bjsbgl,sjbf,sjhy,xtcsh,
sjxr,DataModal,bjxxcx,bjts, U_Option, U_prew_main, U_Prew_HF,
U_Set_Bfyy, U_Path,bz;
{$R *.dfm}
Function MakeCall( lpszDestAddress, lpszAppName,lpszCalledParty,lpszComment : pchar): Longint; external 'Tapi32.dll' name'tapiRequestMakeCall';
procedure TForm1.N2Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.ShowModal;
Form2.Free;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Application.CreateForm(TForm3,Form3);
Form3.ShowModal;
Form3.Free;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Application.CreateForm(TForm4,Form4);
Form4.ShowModal;
Form4.Free;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
with Data.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from 端口表');
Open;
MSComm1.CommPort := 1;
end;
MsComm1.InputLen := 1000;
Try
MSComm1.PortOpen := True;
Except
Application.MessageBox('打开端口错误.','提示',64);
//State := 2;
end;
deleteLoghc;
data.G_Con.Open();
data.G_Rst.SQL.Clear;
data.G_Rst.SQL.Add('select * from T_path');
data.G_Rst.ExecSQL;
data.G_Rst.Open;
if not data.G_Rst.Eof then
begin
g_path:=data.G_Rst.FieldValues['path1'];
end;
Application.CreateForm(TForm6,Form6);
Form6.ShowModal;
Form6.Free;
end;
procedure TForm1.PNoVisible;
begin
N2.Visible := False;
N3.Visible := False;
N4.Visible := False;
N9.Visible:= False;
N29.Visible := False;
N30.Visible := False;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Application.CreateForm(TForm6,Form6);
Form6.ShowModal;
Form6.Free;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// if Application.MessageBox('确实要退出本系统吗?','提示',mb_YesNo)= ID_Yes then
// Action := caFree
// else
// Action := caNone;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Application.CreateForm(TForm5,Form5);
Form5.ShowModal;
Form5.Free;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Application.CreateForm(TForm8,Form8);
Form8.ShowModal;
Form8.Free;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Application.CreateForm(TForm7,Form7);
Form7.ShowModal;
Form7.Free;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
Form9.ShowModal;
Form9.Free;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
Application.CreateForm(TForm10,Form10);
Form10.ShowModal;
Form10.Free;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Application.CreateForm(TForm11,Form11);
Form11.ShowModal;
Form11.Free;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
Application.CreateForm(TForm12,Form12);
Form12.ShowModal;
Form12.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[5].Text := FormatDateTime('yyyy-mm-dd',Now);
StatusBar1.Panels[7].Text := FormatDateTime('hh:mm:ss',Now);
end;
procedure TForm1.N17Click(Sender: TObject);
begin
Application.CreateForm(TForm13,Form13);
Form13.ShowModal;
Form13.Free;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
Application.CreateForm(TForm14,Form14);
Form14.ShowModal;
Form14.Free;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
Application.CreateForm(TForm15,Form15);
Form15.ShowModal;
Form15.Free;
end;
procedure TForm1.N26Click(Sender: TObject);
begin
Application.CreateForm(TForm16,Form16);
Form16.ShowModal;
Form16.Free;
end;
procedure TForm1.N28Click(Sender: TObject);
begin
Application.CreateForm(TForm17,Form17);
Form17.ShowModal;
Form17.Free;
end;
procedure TForm1.N29Click(Sender: TObject);
begin
Application.CreateForm(TForm18,Form18);
Form18.ShowModal;
Form18.Free;
end;
procedure TForm1.N30Click(Sender: TObject);
begin
Application.CreateForm(TForm20,Form20);
Form20.ShowModal;
Form20.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -