communication.pas

delphi和SQL的结合

unit communication;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin, ImgList, jpeg;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Image1: TImage;
    Timer1: TTimer;
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    //FShowText:Boolean;
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses port, help, userlogin, realtime, historydata;

{$R *.dfm}

procedure Tmain.N7Click(Sender: TObject);
begin
close
end;

procedure Tmain.N6Click(Sender: TObject);
begin
 serialport:=Tserialport.Create(self);
 serialport.ShowModal;
end;

procedure Tmain.ToolButton4Click(Sender: TObject);
begin
//main.N3click(sender);
end;

procedure Tmain.N5Click(Sender: TObject);
begin
aboutbox.show;
end;

procedure Tmain.FormShow(Sender: TObject);
begin
//statusbar1.Panels[2].text:='日期:'+formatdatetime('yyyy-mm-dd',now);
//statusbar1.Panels[3].text:='时间:'+formatdatetime('hh:mm:ss',now);
//try
//userloginform:=Tuserloginform.create(application);
//userloginform.showmodal;
//finally
//userloginform.free;
//end;
end;
procedure Tmain.N3Click(Sender: TObject);
begin
Real_time.show;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
history_data.show;
end;

procedure Tmain.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].text:='日期:'+formatdatetime('yyyy-mm-dd',now);
statusbar1.Panels[3].text:='时间:'+formatdatetime('hh:mm:ss',now);
  //if StatusBar1.Panels[3].Text='时间：'+DatetimeToStr(Now) then
     // StatusBar1.Panels.Items[3].Text :=''
   //else
      //StatusBar1.Panels[3].TEXT :='时间：'+FormatDateTime('hh：mm：ss',now);
end;

//procedure Tmain.FormCreate(Sender: TObject);


end.