【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“ClientMain_Unit.pas”一文，供大家参考学习!

    unit ClientMain_Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, Menus, ComCtrls, Buttons, ToolWin, ExtCtrls, jpeg,
      StdCtrls, WinSock;
    
    type
      TfrmClientMain = class(TForm)
        MainMenu1: TMainMenu;
        mmAbout: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        mmDBSetup: TMenuItem;
        N5: TMenuItem;
        ImageList1: TImageList;
        N4: TMenuItem;
        mmMarriageInfo: TMenuItem;
        mmPersonalJob: TMenuItem;
        N12: TMenuItem;
        mmChargeItems: TMenuItem;
        StatusBar1: TStatusBar;
        mmUserSetup: TMenuItem;
        N8: TMenuItem;
        N9: TMenuItem;
        mmCharge: TMenuItem;
        TreeView1: TTreeView;
        C1: TMenuItem;
        I1: TMenuItem;
        P1: TMenuItem;
        N6: TMenuItem;
        N7: TMenuItem;
        N10: TMenuItem;
        B1: TMenuItem;
        N11: TMenuItem;
        N15: TMenuItem;
        N1: TMenuItem;
        N13: TMenuItem;
        Image1: TImage;
        procedure SpeedButton1Click(Sender: TObject);
        procedure mmAboutClick(Sender: TObject);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure mmUserSetupClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure mmChargeItemsClick(Sender: TObject);
        procedure mmChargeClick(Sender: TObject);
        procedure C1Click(Sender: TObject);
        procedure I1Click(Sender: TObject);
        procedure P1Click(Sender: TObject);
        procedure N6Click(Sender: TObject);
        procedure N15Click(Sender: TObject);
        procedure N1Click(Sender: TObject);
        procedure N10Click(Sender: TObject);
        procedure B1Click(Sender: TObject);
        procedure N9Click(Sender: TObject);
        procedure N8Click(Sender: TObject);
        procedure mmDBSetupClick(Sender: TObject);
        procedure mmMarriageInfoClick(Sender: TObject);
        procedure mmPersonalJobClick(Sender: TObject);
        procedure TreeView1Click(Sender: TObject);
        procedure N13Click(Sender: TObject);
      private
        function GetComputer: string;
        function GetIP(Name: string): string;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmClientMain: TfrmClientMain;
      UserID: string;
    implementation
    
    uses About_Unit, UserLogin_Unit, FeeType_Unit, AreaType_Unit,
      CallingType_Unit, InsuranceType_Unit, PersonnelType_Unit,
      PaymentType_Unit, PersonInfo_Unit, Customers_Unit, CarType_Unit,
      CarInfo_Unit, UserPwdSetup_Unit, UserSetup_Unit, CompanyInfo_Unit,
      ClientDM_Unit, ServerClient_Unit, TrafficBookIn_Unit, FeeManage_Unit;
    
    {$R *.dfm}
    
    procedure TfrmClientMain.SpeedButton1Click(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TfrmClientMain.mmAboutClick(Sender: TObject);
    begin
      with TfrmAbout.Create(Application) do
      begin
        try
          ShowModal;
        finally
          Free;
        end;
      end;
    end;
    
    procedure TfrmClientMain.FormCloseQuery(Sender: TObject;
      var CanClose: Boolean);
    begin
      if Application.MessageBox('确定退出货运代理管理系统-客户端吗？', '货运代理管理系统', MB_OKCANCEL) = IDCANCEL then
        CanClose := False;
    end;
    
    procedure TfrmClientMain.mmUserSetupClick(Sender: TObject);
    begin
      frmUserPwdSetup := TfrmUserPwdSetup.Create(Self);
      try
        frmUserPwdSetup.ShowModal;
      finally
        frmUserPwdSetup.Free;
      end;
    end;
    
    procedure TfrmClientMain.FormShow(Sender: TObject);
    begin
      frmUserLogin :=TfrmUserLogin.Create(Application);
      try
        frmUserLogin.ShowModal;
      finally
        frmUserLogin.Free;
      end;
      StatusBar1.Panels[0].Text := '当前用户编号:' + UserID;
      StatusBar1.Panels[1].Text := '登录时间:' + DateTimeToStr(Now);
      StatusBar1.Panels[2].Text := 'www.northwain.com.cn';
      DM.SocketConn.AppServer.GetClientInfo(GetIP(GetComputer),GetComputer,UserID);
    end;
    
    procedure TfrmClientMain.mmChargeItemsClick(Sender: TObject);
    begin
      frmFeeType := TfrmFeeType.Create(Self);
      try
        frmFeeType.ShowModal;
      finally
        frmFeeType.Free;
      end;
    end;
    
    procedure TfrmClientMain.mmChargeClick(Sender: TObject);
    begin
      frmAreaType := TfrmAreaType.Create(Self);
      try
        frmAreaType.ShowModal;
      finally
        frmAreaType.Free;
      end;
    end;
    
    procedure TfrmClientMain.C1Click(Sender: TObject);
    begin
      frmCallingType := TfrmCallingType.Create(Self);
      try
        frmCallingType.ShowModal;
      finally
        frmCallingType.Free;
      end;
    end;
    
    procedure TfrmClientMain.I1Click(Sender: TObject);
    begin
      frmInsuranceType := TfrmInsuranceType.Create(Self);
      try
        frmInsuranceType.ShowModal;
      finally
        frmInsuranceType.Free;
      end;
    
    end;
    
    procedure TfrmClientMain.P1Click(Sender: TObject);
    begin
      frmPersonnelType := TfrmPersonnelType.Create(Self);
      try
        frmPersonnelType.ShowModal;
      finally
        frmPersonnelType.Free;
      end;
    end;
    
    procedure TfrmClientMain.N6Click(Sender: TObject);
    begin
      frmPaymentType := TfrmPaymentType.Create(Self);
      try
        frmPaymentType.ShowModal;
      finally
        frmPaymentType.Free;
      end;
    end;
    
    procedure TfrmClientMain.N15Click(Sender: TObject);
    begin
      frmPersonInfo := TfrmPersonInfo.Create(Self);
      try
        frmPersonInfo.ShowModal;
      finally
        frmPersonInfo.Free;
      end;
    end;
    
    procedure TfrmClientMain.N1Click(Sender: TObject);
    begin
      frmCustomers := TfrmCustomers.Create(Self);
      try
        frmCustomers.ShowModal;
      finally
        frmCustomers.Free;
      end;
    end;
    
    procedure TfrmClientMain.N10Click(Sender: TObject);
    begin
      frmCarType := TfrmCarType.Create(Self);
      try
        frmCarType.ShowModal;
      finally
        frmCarType.Free;
      end;
    end;
    
    procedure TfrmClientMain.B1Click(Sender: TObject);
    begin
      frmCarInfo := TfrmCarInfo.Create(Self);
      try
        frmCarInfo.ShowModal;
      finally
        frmCarInfo.Free;
      end;
    end;
    
    procedure TfrmClientMain.N9Click(Sender: TObject);
    begin
      frmUserSetup := TfrmUserSetup.Create(Self);
      try
        frmUserSetup.ShowModal;
      finally
        frmUserSetup.Free;
      end;
    end;
    
    procedure TfrmClientMain.N8Click(Sender: TObject);
    begin
      frmCompanyInfo := TfrmCompanyInfo.Create(Self);
      try
        frmCompanyInfo.ShowModal;
      finally
        frmCompanyInfo.Free;
      end;
    end;
    
    
    function TfrmClientMain.GetComputer: string;   //得到计算机名
    var
      Name :Pchar;
      Len :^Dword;
    begin
      GetMem(Name, 255);
      New(Len); Len^ := 255;
      GetComputerName(Name, Len^);
      Result := StrPas(Name);
      Freemem(Name, 255);
      Dispose(Len);
    end;
    
    function TfrmClientMain.GetIP(Name: string): string;    //得到根据计算机IP地址
    type
      TaPInAddr = array[0..10] of PInAddr;
      PaPInAddr = ^TaPInAddr;
    var
      phe: PHostEnt;
      pptr: PaPInAddr;
      GInitData: TWSADATA;
    begin
      WSAStartup($101, GInitData);
      Result := '';
      phe := GetHostByName(pchar(Name));
      pptr := PaPInAddr(Phe^.h_addr_list);
      result := StrPas(inet_ntoa(pptr^[0]^));
      WSACleanup;
    end;
    
    procedure TfrmClientMain.mmDBSetupClick(Sender: TObject);
    begin
      frmServerClient := TfrmServerClient.Create(Self);
      try
        frmServerClient.ShowModal;
      finally
        frmServerClient.Free;
      end;
    end;
    
    procedure TfrmClientMain.mmMarriageInfoClick(Sender: TObject);
    begin
      frmTrafficBookIn := TfrmTrafficBookIn.Create(Self);
      try
        frmTrafficBookIn.S

上一篇：frmCommonDialog.frm
下一篇：汝康皮肤护理液医治烧伤的可行性和效果分析