main.pas

客户档案管理-delphi开发

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, StdCtrls, bsSkinCtrls;

type
  TFormMain = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButtonMLQry: TbsSkinButton;
    bsSkinButtonMLAdd: TbsSkinButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    Label1: TLabel;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinButtonGCQry: TbsSkinButton;
    bsSkinButtonGCAdd: TbsSkinButton;
    bsSkinButtonKHQry: TbsSkinButton;
    bsSkinButtonKHAdd: TbsSkinButton;
    bsSkinButtonYGQry: TbsSkinButton;
    bsSkinButtonYGAdd: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinStdLabelVer: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButtonCPQry: TbsSkinButton;
    bsSkinButtonCPAdd: TbsSkinButton;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButtonMLAddClick(Sender: TObject);
    procedure bsSkinButtonCPAddClick(Sender: TObject);
    procedure bsSkinButtonGCAddClick(Sender: TObject);
    procedure bsSkinButtonKHAddClick(Sender: TObject);
    procedure bsSkinButtonYGAddClick(Sender: TObject);
    procedure bsSkinButtonMLQryClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButtonGCQryClick(Sender: TObject);
    procedure bsSkinButtonKHQryClick(Sender: TObject);
    procedure bsSkinButtonYGQryClick(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButtonCPQryClick(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses
  dm, login, about, chgpasswd, AddCustom, QueryCustom, AddCP, QueryCP,
  queryDQ, queryCPLB, QueryYG, AddTreeDQ, AddTreeCPLB, addyg,
  AddDD, QueryDD,
  queryddtj, queryddtj_1, queryddtj_2;

{$R *.dfm}

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormLogin.Close;
end;

procedure TFormMain.bsSkinButton11Click(Sender: TObject);
begin
  Close;
end;

procedure TFormMain.bsSkinButtonGCAddClick(Sender: TObject);
begin  // 地区管理
  dbs.CreateForm(TFormAddTreeDQ);
end;

procedure TFormMain.bsSkinButtonKHAddClick(Sender: TObject);
begin  // 产品类别管理
  dbs.CreateForm(TFormAddTreeCPLB);
end;

procedure TFormMain.bsSkinButtonGCQryClick(Sender: TObject);
begin // 地区查询
  dbs.CreateForm(TFormQueryDQ);
end;

procedure TFormMain.bsSkinButtonKHQryClick(Sender: TObject);
begin  // 产品类别查询
  dbs.CreateForm(TFormQueryCPLB);
end;

procedure TFormMain.bsSkinButtonYGQryClick(Sender: TObject);
begin // 用户查询
  dbs.CreateForm(TFormQueryYG);
end;

procedure TFormMain.bsSkinButtonYGAddClick(Sender: TObject);
begin  // 增加用户
  with TFormAddYG.Create(self) do
  try
    if not cdsAdd.Active then cdsAdd.Open;
      cdsAdd.Append;
    ShowModal;
  finally
    Free;
  end; 
end;

procedure TFormMain.bsSkinButtonMLQryClick(Sender: TObject);
begin  // 销售订单
  dbs.CreateForm(TFormQueryDD);
end;

procedure TFormMain.bsSkinButtonMLAddClick(Sender: TObject);
begin  // 增加订单
  with TFormAddDD.Create(self) do
  try
    if not cdsAdd.Active then cdsAdd.Open;
      cdsAdd.Append;
    ShowModal;
  finally
    Free;
  end; 
end;

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (dbs.ShowMsgDlgCfm('确认', '是否退出系统') = mrNo) then
    CanClose := False;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  // 权限处理
 { bsSkinButtonGCQry.Visible :=  dbs.pbRightGCQry;  // 工厂查询
  bsSkinButtonGCAdd.Visible :=  dbs.pbRightGCAdd;  // 工厂增加
  bsSkinButtonKHQry.Visible :=  dbs.pbRightKHQry;  // 客户查询
  bsSkinButtonKHAdd.Visible :=  dbs.pbRightKHAdd;  // 客户增加
  bsSkinButtonYGQry.Visible :=  dbs.pbRightSQ;  // 员工查询
  bsSkinButtonYGAdd.Visible :=  dbs.pbRightSQ;  // 员工增加

}
end;

procedure TFormMain.bsSkinButton12Click(Sender: TObject);
begin
  Self.Hide;
  FormLogin.Show;
end;

procedure TFormMain.bsSkinButton13Click(Sender: TObject);
begin    // 关于
  dbs.CreateForm(TFormAbout);
end;

procedure TFormMain.bsSkinButton1Click(Sender: TObject);
begin   // 修改密码
  dbs.CreateForm(TFormChgPasswd);
end;

procedure TFormMain.bsSkinButton3Click(Sender: TObject);
begin   // 增加客户
  dbs.CreateForm(TFormAddCustom);
end;

procedure TFormMain.bsSkinButton2Click(Sender: TObject);
begin  // 查询客户
  dbs.CreateForm(TFormQueryCustom);
end;

procedure TFormMain.bsSkinButtonCPQryClick(Sender: TObject);
begin
  // 查询产品
  dbs.CreateForm(TFormQueryCP);
end;

procedure TFormMain.bsSkinButtonCPAddClick(Sender: TObject);
begin  //
  // 增加产品
  dbs.CreateForm(TFormAddCP);
end;

procedure TFormMain.bsSkinButton4Click(Sender: TObject);
begin
  // 销售数量统计
  dbs.CreateForm(TFormqueryddtj);
end;

procedure TFormMain.bsSkinButton5Click(Sender: TObject);
begin
  // 新增客户统计
  dbs.CreateForm(TFormQueryDDTJ_1);
end;

procedure TFormMain.bsSkinButton6Click(Sender: TObject);
begin
  // 流失客户统计
  dbs.CreateForm(TFormQueryDDTJ_2);
end;

end.