howModal;
      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

上一篇：frmCommonDialog.frm
下一篇：混了21年！