cmain.~pas

根据箱号

unit Cmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, jpeg, ComCtrls,winsock,WinInet, StdCtrls,
  XPMenu;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    I1: TMenuItem;
    O1: TMenuItem;
    I2: TMenuItem;
    A1: TMenuItem;
    mczygl: TMenuItem;
    mmmgl: TMenuItem;
    N1: TMenuItem;
    msjkbf: TMenuItem;
    mcxsc: TMenuItem;
    N2: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    H1: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    msjksc: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    jsxxts: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    XPMenu1: TXPMenu;
    Timer1: TTimer;
    msjkzl: TMenuItem;
    N23: TMenuItem;
    N22: TMenuItem;
    N24: TMenuItem;
    msfhjl: TMenuItem;
    procedure E1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure msjkbfClick(Sender: TObject);
    procedure msjkscClick(Sender: TObject);
    procedure mcxscClick(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure jsxxtsClick(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure StatusBar1DblClick(Sender: TObject);
    procedure mmmglClick(Sender: TObject);
    procedure msjkzlClick(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure msfhjlClick(Sender: TObject);
  private
    { Private declarations }
    function findform(caption:string):bool;
    function GetLocalIP(var LocalIp: string): Boolean;
    function GetNameByIPAddr(IPAddr : String;var MacName:String): Boolean;
    function IsTableExist(TableName:String):Boolean;
  public
    { Public declarations }
    userdm,lrqj,lrqjxh:string;
    usermc:string;
    dataip,dataname,datauser,datapass:string;
  end;

var
  main: Tmain;
  localip:string;
  IPAddr : String;
  MacName:String ;
implementation
  uses cyxh,cwxh,clogin,cf0xh,cf0ch,cf0dmmc,cf0rq, Cdata,csjkbf,csjksc,
  ccxsc,cxhgz,cmessage,cabout,cxlt,mmxgC,csjkzl,Csjtp,IniFiles,sumsjplC;
{$R *.dfm}
function Tmain.GetLocalIP(var LocalIp: string): Boolean;
var
    HostEnt: PHostEnt;
    Ip: string;
    addr: pchar;
    Buffer: array [0..63] of char;
    GInitData: TWSADATA;
begin
  Result := False;
  try
    WSAStartup(2, GInitData);
    GetHostName(Buffer, SizeOf(Buffer));
    HostEnt := GetHostByName(buffer);
    if HostEnt = nil then Exit;
    addr := HostEnt^.h_addr_list^;
    ip := Format('%d.%d.%d.%d', [byte(addr [0]),
          byte (addr [1]), byte (addr [2]), byte (addr [3])]);
    LocalIp := Ip;
    Result := True;
  finally
    WSACleanup;
  end;
end;
function Tmain.GetNameByIPAddr(IPAddr : String;var MacName:String): Boolean;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  Result := False;
  if IpAddr = '' then exit;
  try
    WSAStartup(2, WSAData);
    SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
    HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
    if HostEnt <> nil then
      MacName := StrPas(Hostent^.h_name);
    Result := True;
  finally
    WSACleanup;
  end;
end;

function tmain.IsTableExist(TableName:String):Boolean;
var
  MyStringList:TStrings;
begin
  MyStringList := TStringList.Create;
  try
   data.ADOConnection1.GetTableNames(MyStringList, False);
   if MyStringList.Indexof(TableName)=-1 then
      Result:=FALSE
   else
     Result:=TRUE;
   finally
     MyStringList.Free;
  end;
end;
function tmain.findform(caption:string):bool;
var
  i:integer;
begin
   for i:=0 to main.MDIChildCount do
   begin
     if main.MDIChildren[i].caption=caption then
     begin
        sendmessage(mdichildren[i].handle,wm_syscommand,sc_restore,0);
        mdichildren[i].enabled:=true;
        mdichildren[i].left:=trunc((main.Image1.width-mdichildren[i].width)/2);
        mdichildren[i].top:=trunc((main.Image1.height-mdichildren[i].height)/2);
        mdichildren[i].show;
        mdichildren[i].setfocus;
        result:=true;
        break;
     end
     else
        result:=false;
     end;
 end;
procedure Tmain.E1Click(Sender: TObject);
begin
  close;
end;

procedure Tmain.FormCreate(Sender: TObject);
var
  inifile:tinifile;
  nn:string;
  lrrq,path1:string;
begin  
  lrrq:=formatdatetime('yyyy-mm-dd',now);
  lrqj:=copy(lrrq,1,7);
  lrqjxh:=copy(lrqj,1,4)+copy(lrqj,6,7);
  if FileExists(Trim(ExtractFilePath(Application.ExeName)+'USER.ini')) = True then
     begin
       Try
         inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName))+'USER.ini');
         nn:=inifile.ReadString('界面图片','路径','');
         //  combobox1.Text:=nn;
       Finally
           Inifile.Free;
       End;
  if trim(nn)<>'' then
     image1.Picture.LoadFromFile(''+nn+'');
    end;
end;

procedure Tmain.N4Click(Sender: TObject);
var
  newform:tyxh;
begin
  if findform('有箱号')=false then
     begin
     //  main.FormStyle:=fsmdiform;
       newform:=tyxh.Create(application);
       newform.caption:='有箱号';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;
end;

procedure Tmain.N7Click(Sender: TObject);
var
  newform:twxh;
begin
  if findform('无箱号')=false then
     begin
       newform:=twxh.Create(application);
       newform.caption:='无箱号';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;
end;

procedure Tmain.FormShow(Sender: TObject);
begin
  main.Enabled:=false;
 // if IsTableExist(''+main.username+'')=false then
   //  begin
     //showmessage('不存在');
   //  data.adocommand1.CommandText:='select * into '+main.usermc+' from 串号管理 where 内部编号=1';
   //  data.adocommand1.Execute;
   //  end;
end;

procedure Tmain.N8Click(Sender: TObject);
var
  newform:tf0xh;
begin
  if findform('根据包装箱号查询')=false then
     begin
       newform:=tf0xh.Create(application);
       newform.caption:='根据包装箱号查询';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;
end;

procedure Tmain.N9Click(Sender: TObject);
var
  newform:tf0ch;
begin
  if findform('根据电子串号查询')=false then
     begin
       newform:=tf0ch.Create(application);
       newform.caption:='根据电子串号查询';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;
end;

procedure Tmain.N10Click(Sender: TObject);
var
  newform:tf0dmmc;
begin
  if findform('根据代码或名称')=false then
     begin
       newform:=tf0dmmc.Create(application);
       newform.caption:='根据代码或名称';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.N11Click(Sender: TObject);
var
  newform:tf0rq;
begin
  if findform('根据录入日期查询')=false then
     begin
       newform:=tf0rq.Create(application);
       newform.caption:='根据录入日期查询';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.msjkbfClick(Sender: TObject);
var
  newform:tsjkbf;
begin
  if findform('数据库备份')=false then
     begin
       newform:=tsjkbf.Create(application);
       newform.caption:='数据库备份';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.msjkscClick(Sender: TObject);
var
  newform:tsjksc;
begin
  if findform('数据库上传')=false then
     begin
       newform:=tsjksc.Create(application);
       newform.caption:='数据库上传';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.mcxscClick(Sender: TObject);
var
  newform:tcxsc;
begin
  if findform('程序上传')=false then
     begin
       newform:=tcxsc.Create(application);
       newform.caption:='程序上传';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;
end;

procedure Tmain.N17Click(Sender: TObject);
var
  newform:txhgz;
begin
  if findform('箱号更正')=false then
     begin
       newform:=txhgz.Create(application);
       newform.caption:='箱号更正';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.jsxxtsClick(Sender: TObject);
var
  newform:tmessage;
begin
  if findform('即时消息提示')=false then
     begin
       newform:=tmessage.Create(application);
       newform.caption:='即时消息提示';
       newform.left:=trunc(main.Image1.width-newform.width-10);
       newform.top:=trunc(main.Image1.height-newform.height+30);
     end;
end;

procedure Tmain.A1Click(Sender: TObject);
var
  newform:tabout;
begin
  if findform('版权声明')=false then
     begin
       newform:=tabout.Create(application);
       newform.caption:='版权声明';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end; 
end;

procedure Tmain.N21Click(Sender: TObject);
var
  newform:txlt;
begin
  if findform('小灵通')=false then
     begin
       newform:=txlt.Create(application);
       newform.caption:='小灵通';
       newform.left:=trunc((main.Image1.width-newform.width)/2);
       newform.top:=trunc((main.Image1.height-newform.height)/2);
     end;

end;

procedure Tmain.Timer1Timer(Sender: TObject);
var
 cchdate,date1:string;
begin
  date1:=formatdatetime('yyyy-mm-dd hh-mm-ss',now);
  cchdate:=copy(date1,0,4)+'年'+copy(date1,6,2)+'月'+copy(date1,9,2)+'日'+copy(date1,12,2)+'时'+copy(date1,15,2)+'分'+copy(date1,18,2)+'秒';
  self.StatusBar1.Panels[5].Text:=cchdate;
end;

procedure Tmain.StatusBar1DblClick(Sender: TObject);
begin
  a1.Click;
end;

procedure Tmain.mmmglClick(Sender: TObject);
begin
  Application.CreateForm(Tmmxg, mmxg);
  mmxg.ShowModal;
end;

procedure Tmain.msjkzlClick(Sender: TObject);
begin
  Application.CreateForm(Tsjkzl,sjkzl);
  sjkzl.ShowModal;
end;

procedure Tmain.N24Click(Sender: TObject);
begin
  Application.CreateForm(Tsjtp, sjtp);
  sjtp.ShowModal;
end;

procedure Tmain.msfhjlClick(Sender: TObject);
begin
  Application.CreateForm(Tsumsjpl,sumsjpl);
  sumsjpl.ShowModal;
end;

end.