wlzgl.pas

delphi开发的完整的客户管理系统（带数据库）

unit wlzgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, Menus, ImgList, Buttons,
  jpeg;

type
  TForm91 = class(TForm)
    MainMenu1: TMainMenu;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    W1: TMenuItem;
    N5: TMenuItem;
    N9: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    CoolBar1: TCoolBar;
    StatusBar1: TStatusBar;
    Q1: TMenuItem;
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton11: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    procedure FormShow(Sender: TObject);
    procedure TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Q1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure TreeView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form91: TForm91;
  czymc: String;
  List1: TListItem;
implementation

uses  xtdl2, khxxgl, khqygl, khjbgl, khxxgzgl, khxxfkgl, khhjgl, yhzhgl,
  spjcxxgl, tjyusc, khxxcx;

{$R *.dfm}

{ TForm91 }

procedure TForm91.FormShow(Sender: TObject);
begin
  Application.CreateForm(TFormc,Formc);
  Formc.ShowModal;
  Formc.Free;
end;

procedure TForm91.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Close;
end;

procedure TForm91.N5Click(Sender: TObject);
begin
  Application.CreateForm(TForm9,Form9);
  Form9.ShowModal;
  Form9.Free;
end;

procedure TForm91.N9Click(Sender: TObject);
begin
  Application.CreateForm(TForm23,Form23);
  Form23.ShowModal;
  Form23.Free;
end;

procedure TForm91.N13Click(Sender: TObject);
begin
  Application.CreateForm(TForm25,Form25);
  Form25.ShowModal;
  Form25.Free;
end;

procedure TForm91.N14Click(Sender: TObject);
begin
  Application.CreateForm(TForm26,Form26);
  Form26.ShowModal;
  Form26.Free;
end;

procedure TForm91.N15Click(Sender: TObject);
begin
  Application.CreateForm(TForm28,Form28);
  Form28.ShowModal;
  Form28.Free;
end;

procedure TForm91.N16Click(Sender: TObject);
begin
  Application.CreateForm(TForm30,Form30);
  Form30.ShowModal;
  Form30.Free;
end;

procedure TForm91.N17Click(Sender: TObject);
begin
  Application.CreateForm(TForm10,Form10);
  Form10.ShowModal;
  Form10.Free;
end;

procedure TForm91.N1Click(Sender: TObject);
begin
  Application.CreateForm(TForm7,Form7);
  Form7.ShowModal;
  Form7.Free;
end;

procedure TForm91.N2Click(Sender: TObject);
begin
  Application.CreateForm(TForm4,Form4);
  Form4.ShowModal;
  Form4.Free;
end;

procedure TForm91.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[7].Text := FormatDateTime('hh:mm:ss',Now());
  StatusBar1.Panels[5].Text := FormatDateTime('yyyy/mm/dd',Now());
end;

procedure TForm91.Q1Click(Sender: TObject);
begin
  Application.CreateForm(TForm1,Form1);
  Form1.ShowModal;
  Form1.Free;
end;

procedure TForm91.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm91.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Selected<>Nil then
    if TreeView1.Selected.Text = '银行账户管理' then
      N17.OnClick(Sender)
    else if TreeView1.Selected.Text = '查询管理' then
      Q1.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户区域管理' then
      N9.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户级别管理' then
      N13.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户基础信息管理' then
      N5.OnClick(Sender)
    else if  TreeView1.Selected.Text = '商品基础信息管理' then
      N1.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户信息跟踪管理' then
      N14.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户信息反馈管理' then   
      N15.OnClick(Sender)
    else if  TreeView1.Selected.Text = '客户信息呼叫管理' then
      N16.OnClick(Sender)
    else if  TreeView1.Selected.Text = '操作员管理' then
      N2.OnClick(Sender);
end;

end.