unit_groupindiserv.pas

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

unit Unit_GroupIndiServ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, TFlatRadioButtonUnit, StdCtrls, TFlatComboBoxUnit,
  TFlatCheckBoxUnit, TFlatEditUnit, Mask, TFlatMaskEditUnit,
  TFlatSpinEditUnit, TFlatMemoUnit, TFlatButtonUnit, Db, DBTables,
  TFlatGroupBoxUnit, Grids, DBGrids, ExtCtrls, ImgList;

type
  TFrm_GroupIndiServ = class(TForm)
    PageControlServerLog: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    FlatButtonAdd1: TFlatButton;
    FlatButtonSave1: TFlatButton;
    FlatButtonCancel1: TFlatButton;
    FlatButtonClose1: TFlatButton;
    FlatComboBoxServTypeT: TFlatComboBox;
    QueryInitValues: TQuery;
    QueryTemp: TQuery;
    ImageList1: TImageList;
    QueryTmp2: TQuery;
    QueryServeLog2: TQuery;
    DataSourceServeLog2: TDataSource;
    QueryServModi: TQuery;
    FlatButtonUpdate3: TFlatButton;
    FlatButtonSave3: TFlatButton;
    FlatButtonCancel3: TFlatButton;
    FlatButtonClose3: TFlatButton;
    Panel1: TPanel;
    FlatComboBoxServQuality1: TFlatComboBox;
    Label5: TLabel;
    LabelObject1: TLabel;
    Label7: TLabel;
    FlatMaskEditBeginDate1: TFlatMaskEdit;
    FlatMaskEditBeginTime1: TFlatMaskEdit;
    FlatMaskEditEndDate1: TFlatMaskEdit;
    Label8: TLabel;
    FlatMaskEditEndTime1: TFlatMaskEdit;
    FlatCheckBoxFinish1: TFlatCheckBox;
    Label10: TLabel;
    FlatEditServMoney1: TFlatEdit;
    Label9: TLabel;
    Label11: TLabel;
    FlatEditUseMoney1: TFlatEdit;
    Label16: TLabel;
    Label12: TLabel;
    FlatSpinEditFloatTotalMoney1: TFlatSpinEditFloat;
    Label17: TLabel;
    Label13: TLabel;
    FlatMemoServCont1: TFlatMemo;
    Label14: TLabel;
    FlatMemoObjInfo1: TFlatMemo;
    Label15: TLabel;
    FlatMemoObjAdvice1: TFlatMemo;
    Panel2: TPanel;
    Label4: TLabel;
    FlatMaskEditBeginDate2Q: TFlatMaskEdit;
    Label29: TLabel;
    FlatMaskEditEndDate2Q: TFlatMaskEdit;
    Label18: TLabel;
    FlatComboBoxServKind2Q: TFlatComboBox;
    FlatCheckBoxFinish2Q: TFlatCheckBox;
    FlatButton9: TFlatButton;
    DBGridSerLog: TDBGrid;
    FlatCheckBoxFinish2: TFlatCheckBox;
    Label31: TLabel;
    FlatComboBoxServMode2: TFlatComboBox;
    Label35: TLabel;
    FlatComboBoxServKind2: TFlatComboBox;
    Label23: TLabel;
    FlatMaskEditBeginDate2: TFlatMaskEdit;
    FlatMaskEditBeginTime2: TFlatMaskEdit;
    Label24: TLabel;
    FlatMaskEditEndDate2: TFlatMaskEdit;
    FlatMaskEditEndTime2: TFlatMaskEdit;
    Label32: TLabel;
    FlatEditObject2Value: TFlatEdit;
    Label33: TLabel;
    FlatEditObjectName2: TFlatEdit;
    Label34: TLabel;
    FlatComboBoxServQuality2: TFlatComboBox;
    Label19: TLabel;
    FlatEditServMoney2: TFlatEdit;
    Label21: TLabel;
    FlatEditUseMoney2: TFlatEdit;
    Label20: TLabel;
    Label22: TLabel;
    Label25: TLabel;
    FlatSpinEditFloat1: TFlatSpinEditFloat;
    Label36: TLabel;
    Label26: TLabel;
    LabelServiceCode2: TLabel;
    FlatMemo1: TFlatMemo;
    Label27: TLabel;
    FlatMemoObjInfo2: TFlatMemo;
    Label28: TLabel;
    FlatMemoObjAdvice2: TFlatMemo;
    Panel3: TPanel;
    Panel4: TPanel;
    Label40: TLabel;
    FlatMaskEditModiBgnDate: TFlatMaskEdit;
    Label41: TLabel;
    FlatMaskEditModiEndDate: TFlatMaskEdit;
    FlatButton2: TFlatButton;
    DBGrid3: TDBGrid;
    Label42: TLabel;
    MemoModiContent: TMemo;
    DataSourceServModi: TDataSource;
    DBGrid2: TDBGrid;
    FlatComboBoxServMode1: TFlatComboBox;
    Label1: TLabel;
    QueryService: TQuery;
    DataSourceService: TDataSource;
    DBGrid1: TDBGrid;
    QueryGroupInfo: TQuery;
    DataSourceGroupInfo: TDataSource;
    QueryServType: TQuery;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    Label2: TLabel;
    Label39: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    FlatComboBoxServQuality4: TFlatComboBox;
    FlatComboBoxServKind4: TFlatComboBox;
    FlatMaskEditBeginDate4: TFlatMaskEdit;
    FlatMaskEditBeginTime4: TFlatMaskEdit;
    FlatMaskEditEndDate4: TFlatMaskEdit;
    FlatMaskEditEndTime4: TFlatMaskEdit;
    FlatCheckBoxFinish4: TFlatCheckBox;
    FlatEditServMoney4: TFlatEdit;
    FlatEditUseMoney4: TFlatEdit;
    FlatSpinEditFloatTotalMoney4: TFlatSpinEditFloat;
    FlatMemoServCont4: TFlatMemo;
    FlatMemoObjInfo4: TFlatMemo;
    FlatMemoObjAdvice4: TFlatMemo;
    FlatComboBoxServMode4: TFlatComboBox;
    FlatButtonAdd2: TFlatButton;
    FlatButtonSave2: TFlatButton;
    FlatButtonCancel2: TFlatButton;
    FlatButtonClose2: TFlatButton;
    Label6: TLabel;
    FlatComboBoxServKind: TFlatComboBox;
    FlatComboBoxServModeT: TFlatComboBox;
    FlatComboBoxServQualityT: TFlatComboBox;
    FlatEditObjectName1: TFlatEdit;
    Label3: TLabel;
    Label30: TLabel;
    FlatComboBoxCityName1: TFlatComboBox;
    FlatComboBoxJX1: TFlatComboBox;
    Label37: TLabel;
    FlatComboBoxCityName2: TFlatComboBox;
    Label38: TLabel;
    FlatComboBoxJX2: TFlatComboBox;
    Label55: TLabel;
    FlatEditObjectName22: TFlatEdit;
    QueryGroupInfo2: TQuery;
    DataSourceGroupInfo2: TDataSource;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    QueryService2: TQuery;
    DataSourceService2: TDataSource;
    Label56: TLabel;
    FlatComboBoxServiceTopic: TFlatComboBox;
    FlatButtonQuery1: TFlatButton;
    FlatButtonQuery2: TFlatButton;
    Label57: TLabel;
    FlatComboBoxCity: TFlatComboBox;
    Label58: TLabel;
    FlatComboBoxCounty: TFlatComboBox;
    Label92: TLabel;
    FlatComboBox_ManagerNo: TFlatComboBox;
    Label59: TLabel;
    Label60: TLabel;
    FlatEditServObj: TFlatEdit;
    QueryGroupInfoT: TQuery;
    procedure FlatButtonClose1Click(Sender: TObject);
    procedure FlatEditObjectName1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditServMoney1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditUseMoney1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditUseMoney1Change(Sender: TObject);
    procedure FlatButtonAdd1Click(Sender: TObject);
    procedure FlatButtonSave1Click(Sender: TObject);
    procedure FlatButtonClose3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet2Show(Sender: TObject);
    procedure DataSourceServeLog2DataChange(Sender: TObject;
      Field: TField);
    procedure FlatButtonCancel1Click(Sender: TObject);
    procedure PageControlServerLogChange(Sender: TObject);
    procedure FlatButton9Click(Sender: TObject);
    procedure FlatButtonSave3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatEditServMoney2Change(Sender: TObject);
    procedure FlatEditUseMoney2Change(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure DataSourceServModiDataChange(Sender: TObject; Field: TField);
    procedure FlatButtonAdd2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatButtonUpdate3Click(Sender: TObject);
    procedure FlatButtonCancel3Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure DataSourceGroupInfoDataChange(Sender: TObject; Field: TField);
    procedure FlatButtonClose2Click(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure FlatButtonSave2Click(Sender: TObject);
    procedure FlatComboBoxServMode4Change(Sender: TObject);
    procedure FlatComboBoxServQuality4Change(Sender: TObject);
    procedure FlatButtonCancel2Click(Sender: TObject);
    procedure DataSourceServiceDataChange(Sender: TObject; Field: TField);
    procedure FlatEditObjectName22KeyPress(Sender: TObject; var Key: Char);
    procedure DataSourceGroupInfo2DataChange(Sender: TObject;
      Field: TField);
    procedure FlatEditUseMoney4Change(Sender: TObject);
    procedure FlatEditServMoney4Change(Sender: TObject);
    procedure FlatEditServMoney1Change(Sender: TObject);
    procedure FlatCheckBoxFinish1Click(Sender: TObject);
    procedure FlatCheckBoxFinish4Click(Sender: TObject);
    procedure FlatCheckBoxFinish2Click(Sender: TObject);
    procedure PageControlServerLogChanging(Sender: TObject;
      var AllowChange: Boolean);
    procedure FlatButtonQuery1Click(Sender: TObject);
    procedure FlatButtonQuery2Click(Sender: TObject);
    procedure FlatComboBoxCityChange(Sender: TObject);
  private
    { Private declarations }
    sEditFlag:String;
    //控制按钮的状态
    procedure PL_ContrButt(piIndexFlag:Integer;pfEnabled:Boolean);
    //清空登记编辑框
    procedure PL_ClearText1;
    procedure PL_ClearText4;
    //清空修改编辑框
    procedure PL_ClearText2;
    //控制编辑状态
    procedure PL_ControlEnabled(pfFlag:Boolean);
    //初始化各下拉框的值
    //procedure PL_FillInitValues;
    //执行新增、删除、修改SQL语句
    procedure PL_ExecSQL(psSQL:String);
    //填充编辑框
    procedure PL_FillServiceLog;
  public
    { Public declarations }
  end;

var
  Frm_GroupIndiServ: TFrm_GroupIndiServ;

implementation

//   主单元， 数据模板，公共单元
uses Main,    dmmain,   Unit_Public;

//按钮控制
function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;export;external'winfun.dll';
//输框状态控制
//function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;external'winfun.dll';
  Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False;pObject:TObject=Nil):Integer;stdCall;external'winfun.dll';


{$R *.DFM}

//控制按钮的状态
procedure TFrm_GroupIndiServ.PL_ContrButt(piIndexFlag:Integer;pfEnabled:Boolean);
begin
  if piIndexFlag=0 then
  begin
    FlatButtonAdd1.Enabled:=not pfEnabled;
    FlatButtonSave1.Enabled:=pfEnabled;
    FlatButtonCancel1.Enabled:=pfEnabled;
    FlatButtonClose1.Enabled:=not pfEnabled;
  end;
  if piIndexFlag=1 then
  begin
    FlatButtonAdd2.Enabled:=not pfEnabled;
    FlatButtonSave2.Enabled:=pfEnabled;
    FlatButtonCancel2.Enabled:=pfEnabled;
    FlatButtonClose2.Enabled:=not pfEnabled;
  end;
end;

//清空登记编辑框
procedure TFrm_GroupIndiServ.PL_ClearText1;
begin
  FlatEditObjectName1.Clear;
//FlatCheckBoxFinish1.Checked:=True;
  FlatEditServMoney1.Clear;
  FlatEditUseMoney1.Clear;
  FlatMemoServCont1.Clear;
  FlatMemoObjInfo1.Clear;
  FlatMemoObjAdvice1.Clear;
  if QueryGroupInfo.Active then QueryGroupInfo.Close;
  if QueryService.Active then QueryService.Close;
end;

//清空登记编辑框
procedure TFrm_GroupIndiServ.PL_ClearText4;
begin
  //FlatEditObject4Value.Clear;
  //FlatEditObjectName4.Clear;
  //FlatMaskEditBeginDate4.Text:='    -  -  ';
  //FlatMaskEditBeginTime4.Text:='00:00';
  //FlatMaskEditEndDate4.Text:='    -  -  ';
  //FlatMaskEditEndTime4.Text:='00:00';
  //FlatCheckBoxFinish4.Checked:=True;
  FlatEditServMoney4.Clear;
  FlatEditUseMoney4.Clear;
  FlatMemoServCont4.Clear;
  FlatMemoObjInfo4.Clear;