menu.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit menu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,db, Menus,dbtables,comctrls, ToolWin,bde, StdCtrls, Buttons,gvas,
   ImgList, RXCtrls,OleServer,filectrl, dxNavBarBase, dxNavBarCollns,
  dxNavBar, jpeg, fcStatusBar, ActnList, dxBarExtItems, dxBar, AppEvnts;
  //ImgList ;

type
  Tmainform = class(TForm)
    ImageList2: TImageList;
    ImageList1: TImageList;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    q_xjxx: TQuery;
    q_xjxxDataseq: TIntegerField;
    q_xjxxPdate: TDateField;
    q_xjxxPtime: TTimeField;
    q_xjxxPencode: TStringField;
    q_xjxxNode: TStringField;
    q_xjxxWorkercode: TStringField;
    q_xjxxNodename: TStringField;
    q_xjxxNodeplace: TStringField;
    q_xjxxWorkername: TStringField;
    q_xjxxLinename: TStringField;
    q_xjxxLseq: TSmallintField;
    q_xjxxPstatu: TStringField;
    sql1: TQuery;
    sql1Dataseq: TIntegerField;
    sql1Pdate: TDateField;
    sql1Ptime: TTimeField;
    sql1Pencode: TStringField;
    sql1Node: TStringField;
    sql1Workercode: TStringField;
    sql1Nodename: TStringField;
    sql1Nodeplace: TStringField;
    sql1Linename: TStringField;
    sql1Lseq: TSmallintField;
    sql1Pstatu: TStringField;
    sql1Shifts: TStringField;
    sql1Firstp: TTimeField;
    sql1Lastp: TTimeField;
    sql1Chkcycl: TIntegerField;
    sql1Dgpcxx: TIntegerField;
    sql1Dgpcsx: TIntegerField;
    sql1Ntime: TSmallintField;
    sql1Workername: TStringField;
    Query1: TQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    ProgressBar2: TProgressBar;
    RxLabel4: TLabel;
    Panel4: TPanel;
    ProgressBar1: TProgressBar;
    rxLabel3: TLabel;
    dxNavBar1: TdxNavBar;
    dxNavBar1Group1: TdxNavBarGroup;
    dxNavBar1Group2: TdxNavBarGroup;
    dxNavBar1Group3: TdxNavBarGroup;
    dxNavBar1Group4: TdxNavBarGroup;
    StatusBar: TfcStatusBar;
    ImageList3: TImageList;
    dxNavBar1Item1: TdxNavBarItem;
    dxNavBar1Item2: TdxNavBarItem;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    dxNavBar1Item3: TdxNavBarItem;
    dxNavBar1Item4: TdxNavBarItem;
    dxNavBar1Item5: TdxNavBarItem;
    dxNavBar1Item6: TdxNavBarItem;
    Splitter1: TSplitter;
    dxBarManager: TdxBarManager;
    siFile: TdxBarSubItem;
    siEdit: TdxBarSubItem;
    siView: TdxBarSubItem;
    siInsert: TdxBarSubItem;
    siWindow: TdxBarSubItem;
    siHelp: TdxBarSubItem;
    btnNew: TdxBarButton;
    btnOpen: TdxBarButton;
    btnClose: TdxBarButton;
    btnSave: TdxBarButton;
    btnWebPagePreview: TdxBarButton;
    btnUndo: TdxBarButton;
    btnRepeat: TdxBarButton;
    btnCut: TdxBarButton;
    btnCopy: TdxBarButton;
    btnPaste: TdxBarButton;
    btnPasteSpecial: TdxBarButton;
    btnNormal: TdxBarButton;
    btnWebLayout: TdxBarButton;
    btnPrintLayout: TdxBarButton;
    btnOutLine: TdxBarButton;
    btnPageBreak: TdxBarButton;
    btnPageNumber: TdxBarButton;
    btnDate: TdxBarButton;
    btnTime: TdxBarButton;
    btnPageNumbers: TdxBarButton;
    btnDateAndTime: TdxBarButton;
    btnAutoText: TdxBarButton;
    btnSumbol: TdxBarButton;
    btnComment: TdxBarButton;
    btnDeleteComment: TdxBarButton;
    btnFootnote: TdxBarButton;
    InsertListNumField: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton13: TdxBarButton;
    btnBack: TdxBarLargeButton;
    btnForward: TdxBarLargeButton;
    btnStop: TdxBarLargeButton;
    btnRefresh: TdxBarLargeButton;
    btnHome: TdxBarLargeButton;
    xtAction7: TAction;
    xtAction8: TAction;
    xtAction9: TAction;
    xtAction10: TAction;
    xtAction11: TAction;
    sjAction7: TAction;
    sjAction8: TAction;
    sjAction9: TAction;
    xxAction7: TAction;
    xxAction8: TAction;
    xxAction9: TAction;
    acthelp: TAction;
    about: TAction;
    dxNavBar1Item7: TdxNavBarItem;
    dxNavBar1Item8: TdxNavBarItem;
    dxNavBar1Item9: TdxNavBarItem;
    dxNavBar1Item10: TdxNavBarItem;
    dxNavBar1Item11: TdxNavBarItem;
    dxNavBar1Item12: TdxNavBarItem;
    dxNavBar1Item13: TdxNavBarItem;
    dxNavBar1Item14: TdxNavBarItem;
    dxNavBar1Item15: TdxNavBarItem;
    dxNavBar1Item16: TdxNavBarItem;
    dxNavBar1Item17: TdxNavBarItem;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    ApplicationEvents1: TApplicationEvents;
    dxBarButton1: TdxBarButton;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    Image1: TImage;
    dxBarButton4: TdxBarButton;
    procedure N_SETPENTIMEClick(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N_DISPDAYClick(Sender: TObject);
    procedure N_DISPHISClick(Sender: TObject);
    procedure N_INITPENClick(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N_setpencodeClick(Sender: TObject);
    procedure N_StatuSetClick(Sender: TObject);
    procedure N_penmodeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton28Click(Sender: TObject);
    procedure ToolButton30Click(Sender: TObject);
    procedure ToolButton27Click(Sender: TObject);
    procedure ToolButton32Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton34Click(Sender: TObject);
    procedure ToolButton35Click(Sender: TObject);
    procedure ToolButton38Click(Sender: TObject);
    procedure ToolButton39Click(Sender: TObject);
    procedure ToolButton40Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure xtAction7Execute(Sender: TObject);
    procedure xtAction8Execute(Sender: TObject);
    procedure xtAction9Execute(Sender: TObject);
    procedure xtAction10Execute(Sender: TObject);
    procedure xtAction11Execute(Sender: TObject);
    procedure sjAction7Execute(Sender: TObject);
    procedure sjAction8Execute(Sender: TObject);
    procedure sjAction9Execute(Sender: TObject);
    procedure xxAction7Execute(Sender: TObject);
    procedure xxAction8Execute(Sender: TObject);
    procedure xxAction9Execute(Sender: TObject);
    procedure acthelpExecute(Sender: TObject);
    procedure aboutExecute(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
  FClientInstance, FPrevClientProc : TFarProc;
  PROCEDURE ClientWndProc(VAR Message: TMessage);
//procedure drawgroud;
    { Private declarations }
  public
  stopflag:boolean;
  procedure poten(s:string);
    { Public declarations }
  end;

var
  mainform: Tmainform;
implementation

uses
IniFiles,penmode_pas ,pentime, ReceFormM, information,
  setcomm, about, xjyhsd, TestPen, StatuSFM,
  setmode,setmod, initframe,user_pas,password_unit,dm_user_pas,pass_pas,
  point_pas,worker_pas,clsss_pas,fpxl_pas,xjysxx_pas,about_pas,
  yxxx_view_pas,dm_sjbf_pas,lsxx_pas,lssjll,datamodal,yxxx_pas,choose_pas,click_time_pas,settest,
  add_pen_unit;
  //, lssjllbb;
  //,SHFTSET,  workcode,  name;
 //lssjll, lssjllbb ,
{uses  pentime, receive, datamodal, name, workcode,
  information, helpxxn, intrduce, rbb, lssjllbb, lssjll, {sysinithd,
  password, setcomm, initframe, about, SHFTSET,
  xjyhsd, ReceFormM, TestPen, ViewDs;}

{$R *.DFM}

procedure Tmainform.N_SETPENTIMEClick(Sender: TObject);
var child:ttimeform;
begin
child:=ttimeform.Create(application);
child.show;
end;
procedure TMainForm.poten(s:string);
var
  i,j:integer;
begin
 for i:=0 to MainForm.ComponentCount-1 do
  if MainForm.Components[i].Tag<>0 then
  begin
    j:=MainForm.Components[i].Tag;
    if s[j]='0' then
      (MainForm.Components[i] as TAction).Enabled:=false
    else
      (MainForm.Components[i] as TAction).Enabled:=true;
  end;
end;
PROCEDURE TMainForm.ClientWndProc(VAR Message: TMessage);
var
  MyDC : hDC;
  Ro, Co : Word;
begin
With Message do
  case Msg of
    WM_ERASEBKGND:
    begin
      MyDC := TWMEraseBkGnd(Message).DC;
      FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO
        FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO
          BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
            Image1.Picture.Width, Image1.Picture.Height,
            Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
      Result := 1;
    end;
  else
    Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;
end;

procedure Tmainform.N25Click(Sender: TObject);
begin
  close;
end;

procedure Tmainform.N_DISPDAYClick(Sender: TObject);
begin
{  if datamodule1.T_PATROLREC.active=FALSE then
     datamodule1.T_PATROLREC.active:=TRUE;
  datamodule1.T_PATROLREC.indexname:='date1';
  datamodule1.T_PATROLREC.Active:=true;
  if datamodule1.T_PATROLREC.IsEmpty then
     Application.MessageBox('无数据！')
  else
  begin}
      //rbllform:=trbllform.create(self);
//      rbllform.DBGrid1.DataSource:=datamodule1.DS_PATROLREC;
      //rbllform.showmodal;
     // rbllform.free;
//    end;
end;

procedure Tmainform.N_DISPHISClick(Sender: TObject);
//var
 // v1,v2:string;
 // i:integer;
 // dbDes: DBDesc;
begin
{ lssjlldlgform:=tlssjlldlgform.create(self);
if lssjlldlgform.showmodal=mrok then
  //BEGIN
    Check(DbiInit(NiL));
 	  Check(DbiGetDatabaseDesc('GYXGDB', @dbDes));
    	v2:=lssjlldlgform.edit1.text;
     v1:=dbdes.szphyname+'\bf'+v2+'.db'
  END
  else
    begin
      lssjlldlgform.free;
      exit;
    end;
	  lssjlldlgform.free;
    if not fileexists(v1) then
      Application.MessageBox('无该年报表！')
    else
      begin
        lsform:=tlsform.create(self);
        lsform.caption:=v2+'年历史数据';
        lsform.table1.tablename:=v1;
        lsform.table1.active:=true;
        lsform.DBGrid1.Font.size:=10;
        lsform.DBGrid1.Font.style:=[fsbold];
        lsform.DBGrid1.imename:='';

        lsform.DBGrid1.Columns.rebuildcolumns;
        lsform.DBGrid1.Columns[0].title.caption:='';
        lsform.DBGrid1.Columns[0].fieldname:='dataseq';
        lsform.DBGrid1.Columns[0].width:=20;

        lsform.DBGrid1.Columns[1].title.caption:='日期';
        lsform.DBGrid1.Columns[1].fieldname:='pdate';
        lsform.DBGrid1.Columns[1].width:=100;

				lsform.DBGrid1.Columns[2].title.caption:='所属线路';
        lsform.DBGrid1.Columns[2].fieldname:='linename';
        lsform.DBGrid1.Columns[2].width:=100;

        lsform.DBGrid1.Columns[3].title.caption:='时间';
        lsform.DBGrid1.Columns[3].fieldname:='ptime';
        lsform.DBGrid1.Columns[3].width:=100;

        lsform.DBGrid1.Columns[4].title.caption:='次序号';
				lsform.DBGrid1.Columns[4].fieldname:='lseq';
        lsform.DBGrid1.Columns[4].width:=54;

        lsform.DBGrid1.Columns[5].title.caption:='设备名称';
				lsform.DBGrid1.Columns[5].fieldname:='nodename';
        lsform.DBGrid1.Columns[5].width:=100;

        lsform.DBGrid1.Columns[6].title.caption:='巡更地点';
        lsform.DBGrid1.Columns[6].fieldname:='nodeplace';
        lsform.DBGrid1.Columns[6].width:=100;

        lsform.DBGrid1.Columns[7].title.caption:='巡更员';
        lsform.DBGrid1.Columns[7].fieldname:='workername';
        lsform.DBGrid1.Columns[7].width:=64;

        lsform.DBGrid1.Columns[8].title.caption:='巡更员号';
        lsform.DBGrid1.Columns[8].fieldname:='workercode';
        lsform.DBGrid1.Columns[8].width:=64;

        lsform.DBGrid1.Columns[9].title.caption:='钮号';
        lsform.DBGrid1.Columns[9].fieldname:='node';
        lsform.DBGrid1.Columns[9].width:=64;

        lsform.DBGrid1.Columns[10].title.caption:='笔号';
        lsform.DBGrid1.Columns[10].fieldname:='pencode';
        lsform.DBGrid1.Columns[10].width:=64;

        lsform.DBGrid1.Columns[11].title.caption:='状态';
        lsform.DBGrid1.Columns[11].fieldname:='pstatu';
        lsform.DBGrid1.Columns[11].width:=64;

        for i:=0 to lsform.dbgrid1.columns.count-1 do
            begin
              lsform.DBGrid1.Columns[i].title.font.style:=[fsBold];
//              lsform.DBGrid1.Columns[i].title.font.size:=12;
              lsform.DBGrid1.columns[i].title.Alignment:=taCenter;
              lsform.DBGrid1.Columns[i].title.font.size:=12;
              lsform.DBGrid1.Columns[i].readonly:=true;
              lsform.DBGrid1.Columns[i].IMEname:='';
            end;
        if lsform.table1.isempty then
         begin
           lsform.Free;
           Application.MessageBox('该年报表无数据！','消息',MB_ICONINFORMATION);
         end
        else
           lsform.ShowModal;
      end;}
end;

procedure Tmainform.N_INITPENClick(Sender: TObject);
var child:tinitframeform;
begin
child:=tinitframeform.Create(application);
child.show;
 // initframeform:=tinitframeform.create(self);
  //initframeform.showmodal;
  //initframeform.free;
end;

procedure Tmainform.N15Click(Sender: TObject);
var child:tsetmodform;
begin
child:=tsetmodform.Create(application);