unit_custindiserv.pas

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

unit Unit_CustIndiServ;

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_CustIndiServ = 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;
    FlatButtonUpdate2: TFlatButton;
    FlatButtonSave2: TFlatButton;
    FlatButtonCancel2: TFlatButton;
    FlatButtonClose2: TFlatButton;
    Panel1: TPanel;
    FlatRadioButtonCust1: TFlatRadioButton;
    FlatRadioButtonRela1: TFlatRadioButton;
    FlatComboBoxServQuality1: TFlatComboBox;
    Label5: TLabel;
    FlatEditObjectName1: TFlatEdit;
    LabelObjectName1: TLabel;
    FlatEditObject1Value: TFlatEdit;
    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;
    FlatMemoServCont2: TFlatMemo;
    Label14: TLabel;
    FlatMemoObjInfo: TFlatMemo;
    Label15: TLabel;
    FlatMemoObjAdvice: TFlatMemo;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    FlatCheckBoxVIP2: TFlatCheckBox;
    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;
    DBGrid4: TDBGrid;
    QueryRela: TQuery;
    DataSourceRela: TDataSource;
    QueryServType: TQuery;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    Label2: TLabel;
    Label37: TLabel;
    Label38: 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;
    FlatRadioButtonCust4: TFlatRadioButton;
    FlatRadioButtonRela4: TFlatRadioButton;
    FlatComboBoxServQuality4: TFlatComboBox;
    FlatEditObjectName4: TFlatEdit;
    FlatEditObject4Value: TFlatEdit;
    FlatComboBoxServKind4: TFlatComboBox;
    FlatMaskEditBeginDate4: TFlatMaskEdit;
    FlatMaskEditBeginTime4: TFlatMaskEdit;
    FlatMaskEditEndDate4: TFlatMaskEdit;
    FlatMaskEditEndTime4: TFlatMaskEdit;
    FlatCheckBoxFinish4: TFlatCheckBox;
    FlatEditServMoney4: TFlatEdit;
    FlatEditUseMoney4: TFlatEdit;
    FlatSpinEditFloatTotalMoney4: TFlatSpinEditFloat;
    FlatMemoServCont4: TFlatMemo;
    FlatMemoObjInfo4: TFlatMemo;
    FlatMemoObjAdvice4: TFlatMemo;
    DBGrid5: TDBGrid;
    FlatComboBoxServMode4: TFlatComboBox;
    DBGrid6: TDBGrid;
    FlatButton1: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton5: TFlatButton;
    Label6: TLabel;
    FlatComboBoxServKind: TFlatComboBox;
    FlatComboBoxServModeT: TFlatComboBox;
    FlatComboBoxServQualityT: TFlatComboBox;
    Label3: TLabel;
    FlatComboBoxServiceTopic: TFlatComboBox;
    FlatButtonQuery1: TFlatButton;
    FlatButtonQuery2: TFlatButton;
    Panel6: TPanel;
    Label4: TLabel;
    FlatMaskEditBeginDate2Q: TFlatMaskEdit;
    Label29: TLabel;
    FlatMaskEditEndDate2Q: TFlatMaskEdit;
    Label18: TLabel;
    FlatComboBoxServKind2Q: TFlatComboBox;
    FlatCheckBoxVIP5Q: TFlatCheckBox;
    FlatCheckBoxFinish2Q: TFlatCheckBox;
    FlatButton9: TFlatButton;
    Label30: TLabel;
    FlatComboBoxCity: TFlatComboBox;
    Label55: TLabel;
    FlatComboBoxCounty: TFlatComboBox;
    Label92: TLabel;
    FlatComboBox_ManagerNo: TFlatComboBox;
    Label56: TLabel;
    Label57: TLabel;
    FlatEditServObj: TFlatEdit;
    Label58: TLabel;
    FlatComboBoxDestine_Type: TFlatComboBox;
    procedure FlatButtonClose1Click(Sender: TObject);
    procedure FlatRadioButtonCust1Click(Sender: TObject);
    procedure FlatEditObject1ValueKeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditServMoney1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditUseMoney1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEditServMoney1Change(Sender: TObject);
    procedure FlatEditUseMoney1Change(Sender: TObject);
    procedure FlatMaskEditEndDate1Exit(Sender: TObject);
    procedure FlatMaskEditBeginDate1Exit(Sender: TObject);
    procedure FlatButtonAdd1Click(Sender: TObject);
    procedure FlatButtonSave1Click(Sender: TObject);
    procedure FlatButtonClose2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet2Show(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure DataSourceServeLog2DataChange(Sender: TObject;
      Field: TField);
    procedure FlatButtonCancel1Click(Sender: TObject);
    procedure FlatButton9Click(Sender: TObject);
    procedure FlatButtonSave2Click(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 FlatButton1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatButtonUpdate2Click(Sender: TObject);
    procedure FlatButtonCancel2Click(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure DataSourceRelaDataChange(Sender: TObject; Field: TField);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatEditObject4ValueKeyPress(Sender: TObject; var Key: Char);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatComboBoxServMode4Change(Sender: TObject);
    procedure FlatComboBoxServQuality4Change(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure FlatComboBoxServMode2Change(Sender: TObject);
    procedure FlatComboBoxServQuality2Change(Sender: TObject);
    procedure FlatEditServMoney4Change(Sender: TObject);
    procedure FlatEditUseMoney4Change(Sender: TObject);
    procedure PageControlServerLogChanging(Sender: TObject;
      var AllowChange: Boolean);
    procedure FlatCheckBoxFinish1Click(Sender: TObject);
    procedure FlatCheckBoxFinish4Click(Sender: TObject);
    procedure PageControlServerLogChange(Sender: TObject);
    procedure FlatCheckBoxFinish2Click(Sender: TObject);
    procedure FlatButtonQuery1Click(Sender: TObject);
    procedure FlatButtonQuery2Click(Sender: TObject);
    procedure FlatComboBoxCityChange(Sender: TObject);
    procedure FlatEditServObjKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    sEditFlag:String;
    //清空登记编辑框
    procedure PL_ClearText1;
    procedure PL_ClearText4;
    //清空修改编辑框
    procedure PL_ClearText2;
    //控制编辑状态
    procedure PL_ControlEnabled(pfFlag:Boolean);
    //执行新增、删除、修改SQL语句
    procedure PL_ExecSQL(psSQL:String);
    //填充编辑框
    procedure PL_FillServiceLog;
  public
    { Public declarations }
  end;

var
  Frm_CustIndiServ: TFrm_CustIndiServ;

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_CustIndiServ.PL_ClearText1;
begin
  FlatEditObject1Value.Clear;
  FlatEditObjectName1.Clear;
  FlatMaskEditBeginDate1.Text:='    -  -  ';
  FlatMaskEditBeginTime1.Text:='00:00';
  //FlatMaskEditEndDate1.Text:='    -  -  ';
  //FlatMaskEditEndTime1.Text:='00:00';
  //FlatCheckBoxFinish1.Checked:=True;
  FlatEditServMoney1.Clear;
  FlatEditUseMoney1.Clear;
  FlatMemoServCont2.Clear;
  FlatMemoObjInfo.Clear;
  FlatMemoObjAdvice.Clear;
end;

//清空登记编辑框
procedure TFrm_CustIndiServ.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;
  FlatMemoObjAdvice4.Clear;
end;


//清空修改编辑框
procedure TFrm_CustIndiServ.PL_ClearText2;
begin
  FlatMaskEditBeginDate2.Text:='    -  -  ';
  FlatMaskEditBeginTime2.Text:='00:00';
  //FlatMaskEditEndDate2.Text:='    -  -  ';
  //FlatMaskEditEndTime2.Text:='00:00';
  FlatEditObject2Value.Clear;
  FlatEditObjectName2.Clear;
  FlatEditServMoney2.Clear;
  FlatEditUseMoney2.Clear;
  FlatMemo1.Clear;
  FlatMemoObjInfo2.Clear;
  FlatMemoObjAdvice2.Clear;
end;

//控制编辑状态
procedure TFrm_CustIndiServ.PL_ControlEnabled(pfFlag:Boolean);
begin
  FlatCheckBoxVIP2.Enabled:=pfFlag;
  FlatCheckBoxFinish2.Enabled:=pfFlag;
  FlatComboBoxServMode2.Enabled:=pfFlag;
  FlatComboBoxServKind2.Enabled:=pfFlag;
  FlatComboBoxServiceTopic.Enabled:=pfFlag;
  FlatMaskEditBeginDate2.Enabled:=pfFlag;
  FlatMaskEditBeginTime2.Enabled:=pfFlag;
  //FlatMaskEditEndDate2.Enabled:=pfFlag;
  //FlatMaskEditEndTime2.Enabled:=pfFlag;