main.~pas

这是我的一个Delphi测试的一个链接access的一点代码

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, dxsbar, dxBar,
  ImgList;

type
  TFrm_main = class(TForm)
    Panel1: TPanel;
    dxSideBar1: TdxSideBar;
    dxSideBarStore1: TdxSideBarStore;
    dxBarManager1: TdxBarManager;
    dxSideBarStore1Item5: TdxStoredSideItem;
    dxSideBarStore1Item6: TdxStoredSideItem;
    dxSideBarStore1Item7: TdxStoredSideItem;
    dxSideBarStore1Item8: TdxStoredSideItem;
    dxSideBarStore1Item9: TdxStoredSideItem;
    dxSideBarStore1Item11: TdxStoredSideItem;
    dxSideBarStore1Item12: TdxStoredSideItem;
    dxSideBarStore1Item14: TdxStoredSideItem;
    dxSideBarStore1Item15: TdxStoredSideItem;
    dxSideBarStore1Item16: TdxStoredSideItem;
    dxSideBarStore1Item17: TdxStoredSideItem;
    dxSideBarStore1Item18: TdxStoredSideItem;
    dxBarButton1: TdxBarButton;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarSubItem3: TdxBarSubItem;
    dxBarButton5: TdxBarButton;
    dxBarButton6: TdxBarButton;
    dxBarButton7: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    dxBarButton11: TdxBarButton;
    dxBarButton12: TdxBarButton;
    dxBarButton13: TdxBarButton;
    dxBarSubItem4: TdxBarSubItem;
    dxBarSubItem5: TdxBarSubItem;
    dxBarSubItem6: TdxBarSubItem;
    dxBarButton8: TdxBarButton;
    Imglistone: TImageList;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton14: TdxBarButton;
    dxBarButton15: TdxBarButton;
    dxBarSubItem2: TdxBarSubItem;
    dxBarButton16: TdxBarButton;
    dxBarButton17: TdxBarButton;
    dxBarButton18: TdxBarButton;
    dxBarButton19: TdxBarButton;
    dxBarButton20: TdxBarButton;
    dxBarButton21: TdxBarButton;
    dxBarButton22: TdxBarButton;
    dxBarButton23: TdxBarButton;
    dxBarButton24: TdxBarButton;
    dxBarButton25: TdxBarButton;
    dxBarButton26: TdxBarButton;
    dxBarButton27: TdxBarButton;
    dxBarSubItem7: TdxBarSubItem;
    dxBarButton28: TdxBarButton;
    dxBarButton29: TdxBarButton;
    dxBarButton30: TdxBarButton;
    Image1: TImage;
    dxSideBarStore1Item13: TdxStoredSideItem;
    dxSideBarStore1Item19: TdxStoredSideItem;
    dxSideBarStore1Item20: TdxStoredSideItem;
    dxSideBarStore1Item21: TdxStoredSideItem;
    dxSideBarStore1Item22: TdxStoredSideItem;
    dxSideBarStore1Item23: TdxStoredSideItem;
    dxSideBarStore1Item24: TdxStoredSideItem;
    dxSideBarStore1Item25: TdxStoredSideItem;
    dxSideBarStore1Item26: TdxStoredSideItem;
    dxSideBarStore1Item27: TdxStoredSideItem;
    dxSideBarStore1Item28: TdxStoredSideItem;
    dxSideBarStore1Item29: TdxStoredSideItem;
    dxSideBarStore1Item30: TdxStoredSideItem;
    dxSideBarStore1Item31: TdxStoredSideItem;
    dxSideBarStore1Item32: TdxStoredSideItem;
    dxSideBarStore1Item33: TdxStoredSideItem;
    dxSideBarStore1Item34: TdxStoredSideItem;
    procedure FormCreate(Sender: TObject);
    procedure clitent_cliclick(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxSideBarStore1Item2Click(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxSideBarStore1Item6Click(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxSideBarStore1Item8Click(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxSideBarStore1Item7Click(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarButton8Click(Sender: TObject);
    procedure dxSideBarStore1Item9Click(Sender: TObject;
      Item: TdxSideBarItem);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;

implementation

{$R *.dfm}

uses DataModule, form_db, frm_client,frm_prope,frmtloy,frm_touchinf,frmclproperty,frmplan;

procedure TFrm_main.FormCreate(Sender: TObject);
begin
//
end;

//------打开 客户基本资料窗体
procedure TFrm_main.clitent_cliclick(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_client.Open;
  //frm_client.Form1.Show;
  frm_client.Form1.Show;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Close;
//  DataModule1.ADOTb_client.Open;
 // frmclproperty.frm_clproperty.Show;
end;
//-------打开客户基本资料信息表
procedure TFrm_main.dxSideBarStore1Item2Click(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_client.Open;
//  frm_client.Form1.Show;
  frm_client.Form1.Show;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Close;
end;
//------财务资料
procedure TFrm_main.dxSideBarStore1Item6Click(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_prope.Open;
  //frmclproperty.frm_clproperty.Show;
  frm_client.Form1.Close;
  frmclproperty.frm_clproperty.Show;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Close;

  //  DataModule1.ADOTb_prope.Open;
   // frm_prope.Form2.Show;
end;
//---------活动(历史记录)
procedure TFrm_main.dxSideBarStore1Item8Click(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_tloy.Open;
 // frmtloy.frm_tloy.Show;
 frm_client.Form1.Close;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Show;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Close;
end;
  //------- 联系人资料信息
procedure TFrm_main.dxSideBarStore1Item7Click(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_touchinfo.Open;
  //frm_touchinf.frm_touchinfo.Show;
  frm_client.Form1.Close;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Show;
  frmplan.frm_plan.Close;
  //frm_touchinf.frm_touchinfo.Show;
end;
//--------客户基本资料信息
procedure TFrm_main.dxBarButton1Click(Sender: TObject);
begin
 DataModule1.ADOTb_client.Open;
//  frm_client.Form1.Show;
  frm_client.Form1.Show;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Close;
end;
//-----点击活动管理,其他链接关闭
procedure TFrm_main.dxSideBarStore1Item9Click(Sender: TObject;
  Item: TdxSideBarItem);
begin
  DataModule1.ADOTb_plan.Open;
// frmplan.frm_plan.Show;
  frm_client.Form1.Close;
  frmclproperty.frm_clproperty.Close;
  frmtloy.frm_tloy.Close;
  frm_touchinf.frm_touchinfo.Close;
  frmplan.frm_plan.Show;
end;
//-----点击确定退出
procedure TFrm_main.dxBarButton8Click(Sender: TObject);
begin
 Application.Terminate;
end;


end.