unit_setupservicetopic.pas

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

{
*****************************************************************************
*功能：个性服务标题
*作者：郭新源
*版本：1.000
*****************************************************************************
}

unit Unit_setupservicetopic;

interface

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

type
  TFrm_SetupservTopic = class(TForm)
    Pal_button: TPanel;
    Panel_config: TPanel;
    Query_Tmp: TQuery;
    DataSource_Pub: TDataSource;
    Query_PUB: TQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    co_cityno: TFlatComboBox;
    co_off_no_home: TFlatComboBox;
    spi_UseIntegral: TFlatSpinEditInteger;
    dtp_BeginDate: TDateTimePicker;
    dtp_EndDate: TDateTimePicker;
    me_Remark: TFlatMemo;
    me_ServContent: TFlatMemo;
    co_ValidMark: TFlatComboBox;
    Panel_dbgrid: TPanel;
    DBGrid_PUB: TDBGrid;
    ed_Serv_Topic: TFlatEdit;
    Panel1: TPanel;
    BitBtnAdd: TFlatButton;
    BitBtnAlter: TFlatButton;
    BitBtnDel: TFlatButton;
    BitBtnSave: TFlatButton;
    BitBtnCancel: TFlatButton;
    BitBtnClose: TFlatButton;
    procedure Query_PUBAfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure co_citynoChange(Sender: TObject);
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnAlterClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure BitBtnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    iSign:integer;
  public
    { Public declarations }
  end;

var
  Frm_SetupservTopic: TFrm_SetupservTopic;

implementation
    uses dmmain,main,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;pObject:TObject=Nil):Integer;stdCall;external'winfun.dll';

{$R *.DFM}

procedure TFrm_SetupservTopic.Query_PUBAfterScroll(DataSet: TDataSet);
begin
Fun_GetCounty(Co_OFF_NO_HOME,' ',Query_PUB.fieldbyname('cityno_desc').asstring,0);
showrecord(Query_PUB,Panel_config);
co_ValidMark.ItemIndex:=Query_PUB.fieldbyname('ValidMark').asinteger;


end;

procedure TFrm_SetupservTopic.FormShow(Sender: TObject);
begin
   Fun_GetCity(Co_CITYNO,' ',0,Ps_CityName);
   Co_CITYNOChange(Nil);
   Query_PUB.Open;
   BitBtnCancel.OnClick(self);
end;

procedure TFrm_SetupservTopic.co_citynoChange(Sender: TObject);
begin
   Fun_GetCounty(Co_OFF_NO_HOME,' ',Co_CityNo.Text,0,Ps_HomeName);
end;

procedure TFrm_SetupservTopic.BitBtnAddClick(Sender: TObject);
begin
   iSign:=1;
//
   ed_Serv_Topic.text:='';
   me_ServContent.Text:='';
   me_Remark.Text:='';
   spi_UseIntegral.Value:=0;
   dtp_BeginDate.Date:=now;
   dtp_EndDate.Date:=now;
   co_ValidMark.ItemIndex:=0;
   co_cityno.itemindex:=co_cityno.items.indexof(ps_cityName);
   co_cityno.onchange(self);
   co_off_no_home.ItemIndex:=co_off_no_home.Items.IndexOf(ps_homename);
//
   Fun_ComponentStatus(Self,0,True,Panel_config);
   Fun_ButtonStatus(Self,True);
   Panel_dbgrid.Enabled:=False;
end;

procedure TFrm_SetupservTopic.BitBtnAlterClick(Sender: TObject);
begin
   iSign:=2;
   Fun_ComponentStatus(Self,0,True,Panel_config);
   Fun_ButtonStatus(Self,True);
   Panel_dbgrid.Enabled:=False;

end;

procedure TFrm_SetupservTopic.BitBtnDelClick(Sender: TObject);
var
    tmpstr:string;
begin
         If Query_PUB.IsEmpty Then
            Begin
               Application.MessageBox('请选择将要删除的服务标题！','提示',MB_ICONINFORMATION);
               Exit;
            End;

         If Application.MessageBox('确定删除当前客户投诉信息？','提示',MB_ICONINFORMATION+MB_YESNO)=IDYES Then
            Begin
               tmpstr:='Delete From T_D_ServiceTopic Where ServTop_Id='+Query_PUB.FieldByName('ServTop_Id').AsString;
               AnalyzeSQL(tmpstr);
               Query_PUB.Close;
               Query_PUB.Open;
               //ShowRecord(Query_PUB,Panel_appRegister);
            End;

end;

procedure TFrm_SetupservTopic.BitBtnSaveClick(Sender: TObject);
var
    tmpstr:string;
    iServTop_Id:integer;
    saveplace:tbookmark;
begin
        if co_cityno.ItemIndex<=0 then
            begin
               Application.MessageBox('请选择所属地市！','提示',MB_ICONINFORMATION);
               co_cityno.SetFocus;
               Exit;
            end;
        if co_Off_No_Home.ItemIndex<=0 then
            begin
               Application.MessageBox('请选择所属局向！','提示',MB_ICONINFORMATION);
               co_Off_No_Home.SetFocus;
               Exit;
            end;
        if trim(ed_Serv_Topic.Text)='' then
            begin
               Application.MessageBox('请输入服务标题！','提示',MB_ICONINFORMATION);
               ed_Serv_Topic.SetFocus;
               Exit;
            end;
if iSign=1 then
    begin
        Query_Tmp.SQL.Clear;
       	Query_Tmp.close;
       	Query_Tmp.SQL.text :=' select SEQ_SUBJECT_NO.nextval ServTop_Id from dual';
       	Query_Tmp.Open;
        iServTop_Id:=Query_Tmp.fieldbyname('ServTop_Id').asinteger;
         tmpstr:='insert into T_D_ServiceTopic(CityNo,Off_No_Home,ServTop_Id,Serv_Topic,ServContent,UseIntegral,BeginDate,EndDate,ValidMark,Remark)';
         tmpstr:=tmpstr+'values('+Fun_GetCity(Co_CITYNO,'',1)+','+Fun_GetCounty(Co_OFF_NO_HOME,'','',1)+','+inttostr(iServTop_Id)+','+''''+ed_Serv_Topic.text+''''+',';
         tmpstr:=tmpstr+''''+me_ServContent.text+''''+','+inttostr(spi_UseIntegral.value)+','+'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_BeginDate.DateTime+1)+''',''YYYY-MM-DD'') '+',';
         tmpstr:=tmpstr+'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_EndDate.DateTime+1)+''',''YYYY-MM-DD'') '+','+inttostr(co_ValidMark.ItemIndex)+','+''''+me_Remark.text+''''+')';
         AnalyzeSQL(tmpstr);
         Query_PUB.Close;
         Query_PUB.Open;
         iSign:=0;
         Fun_ComponentStatus(Self,0,False,Panel_config);
         panel_dbgrid.Enabled:=True;
         Fun_ButtonStatus(Self,False);
    end;
if iSign=2 then
    begin
	tmpstr:='update T_D_ServiceTopic set ';
        tmpstr:=tmpstr+'CityNo='+Fun_GetCity(Co_CITYNO,'',1)+','+'Off_No_Home='+Fun_GetCounty(Co_OFF_NO_HOME,'','',1)+','+'Serv_Topic='+''''+ed_Serv_Topic.text+''''+',';
        tmpstr:=tmpstr+'ServContent='+''''+me_ServContent.text+''''+','+'UseIntegral='+inttostr(spi_UseIntegral.value)+',';
        tmpstr:=tmpstr+'BeginDate='+'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_BeginDate.DateTime+1)+''',''YYYY-MM-DD'') '+','+'EndDate='+'To_Date('''+FormatDateTime('YYYY-MM-DD',dtp_EndDate.DateTime+1)+''',''YYYY-MM-DD'') '+',';
        tmpstr:=tmpstr+'ValidMark='+inttostr(co_ValidMark.ItemIndex)+','+'Remark='+''''+me_Remark.text+'''';
        tmpstr:=tmpstr+' where ServTop_Id='+Query_PUB.fieldbyname('ServTop_Id').asstring;
         AnalyzeSQL(tmpstr);
         saveplace:=Query_PUB.GetBookmark;
         Query_PUB.Close;
         Query_PUB.Open;
         Query_PUB.GotoBookmark(saveplace);
         Query_PUB.FreeBookmark(saveplace);
         iSign:=0;
         Fun_ComponentStatus(Self,0,False,Panel_config);
         panel_dbgrid.Enabled:=True;
         Fun_ButtonStatus(Self,False);
    end;
end;

procedure TFrm_SetupservTopic.BitBtnCancelClick(Sender: TObject);
begin
iSign:=0;
Fun_ComponentStatus(Self,0,False,Panel_config);
Panel_dbgrid.Enabled:=True;
Fun_ButtonStatus(Self,False);
Query_PUB.AfterScroll(Query_PUB);
end;

procedure TFrm_SetupservTopic.BitBtnCloseClick(Sender: TObject);
begin
close;
end;

procedure TFrm_SetupservTopic.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

end.