clientmain_unit.pas

货源代理管理系统 同样是DELPHI7下的

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.ShowModal;
  finally
    frmTrafficBookIn.Free;
  end;
end;

procedure TfrmClientMain.mmPersonalJobClick(Sender: TObject);
begin
  frmFeeManage := TfrmFeeManage.Create(Self);
  try
    frmFeeManage.ShowModal;
  finally
    frmFeeManage.Free;
  end;
end;

procedure TfrmClientMain.TreeView1Click(Sender: TObject);
begin
  if TreeView1.Selected.Level = 1 then
  begin
    if  TreeView1.Selected.Text = '运单登记管理' then
        mmMarriageInfoClick(Self);
    if  TreeView1.Selected.Text = '运单收费管理' then
        mmPersonalJobClick(Self);
    if  TreeView1.Selected.Text = '费用类型' then
        mmChargeItemsClick(Self);
    if  TreeView1.Selected.Text = '地区分类' then
        mmChargeClick(Self);
    if  TreeView1.Selected.Text = '行业分类' then
        C1Click(Self);
    if  TreeView1.Selected.Text = '保险分类' then
        I1Click(Self);
    if  TreeView1.Selected.Text = '人员分类' then
        P1Click(Self);
    if  TreeView1.Selected.Text = '支付方式' then
        N6Click(Self);
    if  TreeView1.Selected.Text = '客户资料' then
        N1Click(Self);
    if  TreeView1.Selected.Text = '车辆品牌维护' then
        N10Click(Self);
    if  TreeView1.Selected.Text = '车辆基本资料' then
        B1Click(Self);
    if  TreeView1.Selected.Text = '驾驶人员维护' then
        N15Click(Sender);
    if  TreeView1.Selected.Text = '货运公司资料' then
        N8Click(Self);
    if  TreeView1.Selected.Text = '用户信息设置' then
        N9Click(Self);
    if  TreeView1.Selected.Text = '用户密码设置' then
        mmUserSetupClick(Self);
    if  TreeView1.Selected.Text = '服务器连接设置' then
        mmDBSetupClick(Self);
    if  TreeView1.Selected.Text = '关于' then
        mmAboutClick(Self);
  end;
end;


procedure TfrmClientMain.N13Click(Sender: TObject);
begin
  Close;
end;

end.