unit_analyzetemplet.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_AnalyzeTemplet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, TFlatComboBoxUnit, TFlatButtonUnit, Db, DBTables,
  XLGrids, Buttons;

type
  TFrm_AnalyzeTemplet = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    QueryTotal: TQuery;
    Panel7: TPanel;
    XLGrid1: TXLGrid;
    Panel5: TPanel;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    Panel4: TPanel;
    Label1: TLabel;
    FlatComboBox_City: TFlatComboBox;
    FlatComboBox_County: TFlatComboBox;
    Label2: TLabel;
    FlatComboBox_ManagerNo: TFlatComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    FlatComboBox_Att: TFlatComboBox;
    FlatComboBox_Brand: TFlatComboBox;
    FlatComboBox_Grade: TFlatComboBox;
    Panel6: TPanel;
    FlatButton1: TFlatButton;
    SpeedButton6: TSpeedButton;
    SBAtt: TSpeedButton;
    SBBrand: TSpeedButton;
    SBCounty: TSpeedButton;
    SBCity: TSpeedButton;
    SBGrade: TSpeedButton;
    QueryDetail: TQuery;
    DataSourceTotal: TDataSource;
    QueryRow: TQuery;
    procedure FlatButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FlatComboBox_CityChange(Sender: TObject);
    procedure FlatComboBox_CountyChange(Sender: TObject);
  private
    { Private declarations }
  protected
    SQLString:string;
  public
    { Public declarations }
  end;

var
  Frm_AnalyzeTemplet: TFrm_AnalyzeTemplet;

implementation
Uses
   Unit_Public,Main;

{$R *.DFM}

procedure TFrm_AnalyzeTemplet.FlatButton4Click(Sender: TObject);
begin
   Close;
end;

procedure TFrm_AnalyzeTemplet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TFrm_AnalyzeTemplet.FormShow(Sender: TObject);
begin
   Fun_GetCity(FlatCombobox_City,'所有',0,PS_CityName);
   FlatComboBox_CityChange(Nil);
   Pro_GFillInitValue(Self,'所有');
end;

procedure TFrm_AnalyzeTemplet.FlatComboBox_CityChange(Sender: TObject);
begin
  Fun_GetCounty(FlatCombobox_County,'所有',FlatCombobox_City.Text,0,PS_HomeName);
  FlatComboBox_CountyChange(Nil);
end;

procedure TFrm_AnalyzeTemplet.FlatComboBox_CountyChange(Sender: TObject);
begin
  Fun_GetManager(FlatCombobox_ManagerNo,'所有',FlatCombobox_City.Text,FlatCombobox_County.Text,GH);
end;
                                              
end.