unit_querytemplet.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

unit Unit_QueryTemplet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Db, DBTables, TFlatButtonUnit, StdCtrls, TFlatComboBoxUnit,
  Grids, DBGrids, TFlatEditUnit, TFlatCheckBoxUnit;

type
  TFrm_QueryTemplet = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    QuerySearch: TQuery;
    DSSearch: TDataSource;
    Panel5: TPanel;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    Panel4: TPanel;
    Panel6: TPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    Label1: TLabel;
    FlatComboBox_City: TFlatComboBox;
    Label2: TLabel;
    FlatComboBox_County: TFlatComboBox;
    Label3: TLabel;
    FlatComboBox_ManagerNo: TFlatComboBox;
    FlatComboBox_Grade: TFlatComboBox;
    Label4: TLabel;
    Label5: TLabel;
    FlatComboBox_Brand: TFlatComboBox;
    FlatComboBox_Att: TFlatComboBox;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    Label7: TLabel;
    FlatComboBox_PaymentMode: TFlatComboBox;
    Label8: TLabel;
    FlatComboBox_Sex: TFlatComboBox;
    Label9: TLabel;
    FlatComboBox_Occupation: TFlatComboBox;
    FlatCheckBox_OnLine: TFlatCheckBox;
    FlatEdit_MinOnlineTime: TFlatEdit;
    Label10: TLabel;
    FlatEdit_MaxOnlineTime: TFlatEdit;
    FlatCheckBox_Age: TFlatCheckBox;
    FlatEdit_MinAge: TFlatEdit;
    Label11: TLabel;
    FlatEdit_MaxAge: TFlatEdit;
    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);
    procedure FlatCheckBox_OnLineClick(Sender: TObject);
    procedure FlatEdit_MinOnlineTimeKeyPress(Sender: TObject;
      var Key: Char);
    procedure FlatCheckBox_AgeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_QueryTemplet: TFrm_QueryTemplet;

implementation
Uses
   Unit_Public,Main;

{$R *.DFM}

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

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

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

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

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

procedure TFrm_QueryTemplet.FlatCheckBox_OnLineClick(Sender: TObject);
begin
   If FlatCheckBox_OnLine.Checked Then
      Begin
         FlatEdit_MinOnlineTime.Enabled:=True;
         FlatEdit_MaxOnlineTime.Enabled:=True;
//         FlatEdit_MinOnlineTime.SetFocus;
      End
   Else
      Begin
         FlatEdit_MinOnlineTime.Enabled:=False;
         FlatEdit_MaxOnlineTime.Enabled:=False;
      End;
end;

procedure TFrm_QueryTemplet.FlatEdit_MinOnlineTimeKeyPress(Sender: TObject;
  var Key: Char);
begin
   If Not (Key In ['0'..'9',#13,#8]) Then
      Key:=#0;
end;

procedure TFrm_QueryTemplet.FlatCheckBox_AgeClick(Sender: TObject);
begin
   If FlatCheckBox_Age.Checked Then
      Begin
         FlatEdit_MinAge.Enabled:=True;
         FlatEdit_MaxAge.Enabled:=True;
//         FlatEdit_MinAge.SetFocus;
      End
   Else
      Begin
         FlatEdit_MinAge.Enabled:=False;
         FlatEdit_MaxAge.Enabled:=False;
      End;

end;

end.