unit Unit_SetupSMS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit_Config, DBTables, Db, StdCtrls, TFlatEditUnit, TFlatButtonUnit,
  ExtCtrls, Grids, DBGrids,crypt,procedurep, Wwdbigrd, Wwdbgrid;

type
  TFrm_SetupSMS = class(TFrm_Config)
    UpdateSQL1: TUpdateSQL;
    wwDBGrid1: TwwDBGrid;
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnAlterClick(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure DBGrid_PUBCellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure Query_PUBAfterScroll(DataSet: TDataSet);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure sqlcommit;
  private
    { Private declarations }
    //當(dāng)前的節(jié)日編碼
    P_CurrentCode :string;
    //判斷是否為插入狀態(tài)
    P_Insert :boolean;
  public
    { Public declarations }
  end;

var
  Frm_SetupSMS: TFrm_SetupSMS;

implementation
uses main, dmmain,unit_public;
{$R *.DFM}

procedure TFrm_SetupSMS.BitBtnAddClick(Sender: TObject);
begin
  inherited;
  kk:=1;
  FlatEdit1.Text:='';
  FlatEdit1.Enabled :=true;
  FlatEdit1.SetFocus;
  //ShowMessage(' 請輸入短信內(nèi)容! ');
  SetBitBtn(false);
  with Query_PUB do
  begin
    if Not Active then
       Active:=true;
  end;
  SetBitBtn(false);
end;

procedure TFrm_SetupSMS.BitBtnAlterClick(Sender: TObject);
begin

  inherited;
  kk:=2;
  //ShowMessage(' 請輸入需要修改的短信內(nèi)容！ ');
  FlatEdit1.SelectAll;
  FlatEdit1.Enabled :=true;
  FlatEdit1.SetFocus;
  SetBitBtn(false);
  //Query_Pub.AfterScroll(nil);
end;

procedure TFrm_SetupSMS.BitBtnSaveClick(Sender: TObject);
var
  xlh, editxlh,sql : string;
begin
  inherited;
  //提示是否更新
  if kk=2 then
  //if (Application.MessageBox('是否要更新該記錄?',
  //                       '提示',MB_OKCANCEL)=IDCANCEL)  then exit;
  if MessageDlg('是否要更新該記錄?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
  if trim(FlatEdit1.Text) ='' then
  begin
    MessageDlg('短信內(nèi)容字段不能為空！',mtConfirmation, [mbYes], 0);
    exit;
  end;
  if length(FlatEdit1.Text) >400 then
  begin
    MessageDlg('短信內(nèi)容字段超過長度！',mtConfirmation, [mbYes], 0);
    exit;
  end;
  
  //Dm_Main.Databasedh.StartTransaction;
  case kk of
  1:  // add
     Begin
       Query_Tmp.Close;
       Query_Tmp.SQL.Clear;
       Query_Tmp.SQL.Add(' select SEQ_CONID.nextval xlh from dual');
       Query_Tmp.Open;
       xlh := Query_Tmp.FieldByName('xlh').AsString;

       Sql :='insert into t_d_smscontent values('+xlh+','
       +#39+FlatEdit1.Text+#39+','+#39+GH+#39+')';
       
       if AnalyzeSql(SQL)=1 then exit;
     end;
  2:  // edit
     begin
       Sql :='update t_d_smscontent set CONTENT='+#39+FlatEdit1.Text+#39+','
       +'WK_NO='+#39+GH+#39+' where CONID='+#39+Query_PUB.FieldByName('CONID').AsString+#39;

       if AnalyzeSql(SQL)=1 then exit;
     end;
  end;

  //Query_Pub.Close;
  //Query_Pub.Open;
  {
  if kk=1 then
    Query_Pub.Locate('CONID', xlh, [])
  else
    Query_Pub.Locate('CONID', editxlh, []); }
  //*************數(shù)據(jù)同步********************
  case kk of
  1:  // add
     Begin
       P_Insert :=true;
       Query_Pub.insert;
       Query_Tmp.close;
       Query_Tmp.sql.text := //大小寫問題Diploma_ID
        'select nvl(max(CONID),0) from t_d_smscontent ';
       Query_Tmp.open;
       P_CurrentCode :=Query_Tmp.fields[0].asstring;
     end;
  2:  // edit
     begin
       P_Insert :=true;
       Query_Pub.Edit;
     end;
  end;
  Query_PUB.FieldByName('CONTENT').AsString :=FlatEdit1.Text;
  Query_PUB.FieldByName('WK_NO').AsString :=GH;
  Query_PUB.FieldByName('CONID').AsString :=P_CurrentCode;
  P_Insert :=false;
  Query_Pub.Post;
  //*****************************************
  SetBitBtn(true);
  Query_Pub.AfterScroll(nil);
end;

procedure TFrm_SetupSMS.DBGrid_PUBCellClick(Column: TColumn);
begin
  inherited;
  FlatEdit1.Text := Query_PUB.fieldbyname('CONTENT').AsString;
end;

procedure TFrm_SetupSMS.FormShow(Sender: TObject);
begin
//showmessage('111');
  inherited;
  P_Insert :=false;
  FlatEdit1.Enabled :=false;
  crypt.UserEnter_Log(Caption,'瀏覽',-1,Gh,'登入窗體');
  setFunVisible(Self,gh);
  FormMain.GP_SetButtonPos(Pal_button);
  //if Not Query_PUB.Active then
  //  Query_PUB.Active:=true;
  SetBitBtn(true);
  //Query_PUB.AfterScroll(nil);
  //修改部分       2001-07-10         ChenQingBo
  BitBtnAdd.Enabled:=(JBDM<=2);
  BitBtnAlter.Enabled:=(JBDM<=2);
  BitBtnDel.Enabled:=(JBDM<=2);
  Query_PUBAfterScroll(nil);
end;

procedure TFrm_SetupSMS.BitBtnDelClick(Sender: TObject);
var
  sql :string;
begin
  inherited;
  //if (Application.MessageBox('是否要刪除該記錄?',
  //               '提示',MB_OKCANCEL)=IDCANCEL)  then exit;
  if MessageDlg('是否要刪除該記錄?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
  //Dm_Main.Databasedh.StartTransaction;
  Sql :='Delete t_d_smscontent where CONID='+#39+
  Query_PUB.FieldByName('CONID').AsString+#39;
  
  if AnalyzeSql(SQL)=1 then exit;
   //Dm_Main.Databasedh.Commit;
 // sqlcommit;
   FlatEdit1.text :='';
   Query_Pub.Delete;
  //Query_Pub.Close;
  //Query_Pub.Open;
  Query_Pub.AfterScroll(nil);
end;

procedure TFrm_SetupSMS.Query_PUBAfterScroll(DataSet: TDataSet);
begin
  inherited;
  FlatEdit1.Enabled :=false;
  if P_Insert then exit;
  FlatEdit1.Text := Query_PUB.fieldbyname('CONTENT').AsString;
  P_CurrentCode :=Query_PUB.FieldByName('CONID').AsString;
   //***********當(dāng)沒有記錄時要控制按鈕及權(quán)限************
  If  not(Query_PuB.bof and Query_PuB.eof) Then
  begin
    //
    BitBtnAdd.Enabled:=true;
    BitBtnAlter.Enabled:=true;
    BitBtnDel.Enabled:=true;
    //權(quán)限
    BitBtnAdd.Enabled:=(JBDM<=2);
    BitBtnAlter.Enabled:=(JBDM<=2);
    BitBtnDel.Enabled:=(JBDM<=2);
  end
    else
      begin
        //BitBtnAdd.Enabled:=false;
        BitBtnAlter.Enabled:=false;
        BitBtnDel.Enabled:=false;
      end;
   //*******************************************
end;

procedure TFrm_SetupSMS.BitBtnCancelClick(Sender: TObject);
begin
  inherited;
  Query_Pub.AfterScroll(nil);
end;

procedure TFrm_SetupSMS.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then
    BitBtnSaveClick(nil);
end;

procedure TFrm_SetupSMS.sqlcommit;
begin
  with Query_Tmp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('commit');
      ExecSql;
    end;
end;

end.