unit_setupcalling.pas

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

unit Unit_SetupCalling;

interface

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

type
  TFrm_SetupCalling = class(TFrm_Config)
    UpdateSQL1: TUpdateSQL;
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnAlterClick(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Query_PUBAfterScroll(DataSet: TDataSet);
    procedure sqlcommit;
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    //当前的节日编码
    P_CurrentCode :string;
    //判断是否为插入状态
    P_Insert :boolean;

  public
    { Public declarations }
  end;

var
  Frm_SetupCalling: TFrm_SetupCalling;

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

procedure TFrm_SetupCalling.BitBtnAddClick(Sender: TObject);
begin
  inherited;
  kk:=1;
  FlatEdit1.Text:='';
  FlatEdit1.Enabled :=true;
  FlatEdit1.SetFocus;
  //ShowMessage(' 请输入行业名称! ');
  with Query_PUB do
    begin
      if Not Active then
        Active:=true;
    end;
  SetBitBtn(false);
end;

procedure TFrm_SetupCalling.BitBtnDelClick(Sender: TObject);
var
  Sql :string;
begin
  inherited;
  if JBDM=3 then
  begin
    //showmessage('对不起，你没有权限删除行业')
    MessageDlg('无权限操作，请询问管理员！',mtConfirmation, [mbYes], 0);
    exit;
  end
  else
    begin
      if Query_PUB.FieldByName('PAR_VALUES').AsString = '99' then
        begin
          //showmessage('对不起，你不能删除行业');
          MessageDlg('无权限操作，请询问管理员！',mtConfirmation, [mbYes], 0);
          Exit;
        end
      else
        begin
          if MessageDlg('是否要删除该记录?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
          //Dm_Main.Databasedh.StartTransaction;

          Sql:='Delete T_D_Config where PAR_NAME=''GroupCalling'' and PAR_VALUES='+
          #39+Query_PUB.FieldByName('PAR_VALUES').AsString+#39;
          if AnalyzeSql(SQL)=1 then exit;
            //Dm_Main.Databasedh.Commit;
            FlatEdit1.text :='';
            Query_Pub.Delete;
            //Query_Pub.Post;
            //Query_Pub.Close;
            //Query_Pub.Open;
            Query_PUB.AfterScroll(nil);
        end;
    end;
end;

procedure TFrm_SetupCalling.BitBtnAlterClick(Sender: TObject);
begin
  inherited;
  kk:=2;
  //ShowMessage(' 请输入需要修改的行业名称！ ');
  //FlatEdit1.SelectAll;
  FlatEdit1.Enabled :=true;
  FlatEdit1.SetFocus;
  SetBitBtn(false);
  //Query_PUB.AfterScroll(nil);
end;

procedure TFrm_SetupCalling.BitBtnSaveClick(Sender: TObject);
var
  xlh, editxlh,sql : string;
begin
  inherited;

  //提示是否更新
  if kk=2 then
  if MessageDlg('是否要更新该记录?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
  if trim(FlatEdit1.Text) ='' then
  begin
    MessageDlg('行业字段不能为空！',mtConfirmation, [mbYes], 0);
    exit;
  end;

  if length(FlatEdit1.Text) >100 then
  begin
    MessageDlg('行业字段超过长度！',mtConfirmation, [mbYes], 0);
    exit;
  end;
  //新增时如果行业名称已经存在就提示出错
  if kk=1 then
  begin
    Query_Tmp.Close;
    Query_Tmp.sql.text :=
    'select count(PAR_DESC) from T_D_Config where upper(PAR_NAME)='
    +#39+'GROUPCALLING'+#39+' and PAR_DESC='+#39+FlatEdit1.Text+#39;
    Query_Tmp.open;
    if Query_Tmp.Fields[0].AsInteger >0 then
    begin
      Application.MessageBox('行业名称已存在!请重新输入!','提示',MB_OK+MB_ICONWARNING);
      FlatEdit1.text :='';
      FlatEdit1.SetFocus;
      Exit;
    end;
  end;
  //**********************************************
  //Dm_Main.Databasedh.StartTransaction;
  case kk of
  1:  // add
     Begin
       Query_Tmp.Close;
       Query_Tmp.SQL.Clear;
       Query_Tmp.SQL.Add
       ('select max(to_number(PAR_VALUES))+1 as xlh from T_D_Config where PAR_NAME=''GroupCalling'' and PAR_VALUES <>''99'' ');
       Query_Tmp.Open;
       if Query_Tmp.fieldbyname('xlh').AsString = '99' then
         xlh := '100'
       else
         xlh := Query_Tmp.fieldbyname('xlh').AsString;

         sql:='insert into T_D_Config(PAR_NAME,PAR_VALUES,PAR_DESC,PAR_OTHER)'
         +' values('+#39+'GroupCalling'+#39+','+#39+xlh+#39+','
         +#39+FlatEdit1.Text+#39+','+#39+'行业名称'+#39+')';
         if AnalyzeSql(SQL)=1 then exit;
     end;
  2:  // edit
     begin 
       Sql:='update T_D_Config set PAR_DESC='+#39+FlatEdit1.Text+#39
       +' where upper(PAR_NAME)='+#39+'GROUPCALLING'+#39+' and PAR_VALUES='+#39
       +Query_PUB.FieldByName('PAR_VALUES').AsString+#39;
        if AnalyzeSql(SQL)=1 then exit;
     end;
  end;
  //Dm_Main.Databasedh.Commit;
  {
  with Query_Pub do
    begin
      Close;
      Open;
      if kk=1 then
        Locate('PAR_VALUES;PAR_NAME', VarArrayOf([xlh,'GroupCalling']), [])
      else
        Locate('PAR_VALUES;PAR_NAME', VarArrayOf([editxlh,'GroupCalling']), [])
    end;   }
  //*************数据同步********************
  case kk of
  1:  // add
     Begin
       P_Insert :=true;
       Query_Pub.insert;
       Query_Tmp.close;
       Query_Tmp.sql.text :=
        'select nvl(max(PAR_VALUES),0) from T_D_Config where upper(PAR_NAME)='+#39
        +'GROUPCALLING'+#39+' and PAR_VALUES <>''99''';
       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('PAR_NAME').AsString := 'GroupCalling';
  Query_PUB.FieldByName('PAR_OTHER').AsString := '行业名称';
  Query_PUB.FieldByName('PAR_DESC').AsString :=FlatEdit1.Text;
  Query_PUB.FieldByName('PAR_VALUES').AsString :=P_CurrentCode;
  P_Insert :=false;
  Query_Pub.Post;
  //*****************************************
  SetBitBtn(true);
  Query_PUB.AfterScroll(nil);
end;

procedure TFrm_SetupCalling.BitBtnCancelClick(Sender: TObject);
begin
  inherited;
  Query_PUB.AfterScroll(nil);
end;

procedure TFrm_SetupCalling.FormShow(Sender: TObject);
begin
  inherited;
  FlatEdit1.Enabled :=false;
  P_Insert :=false;
  SetBitBtn(true);
  //修改部分       2001-07-10         ChenQingBo
  BitBtnAdd.Enabled:=(JBDM<=2);
  BitBtnAlter.Enabled:=(JBDM<=2);
  BitBtnDel.Enabled:=(JBDM<=2);
  Query_PUBAfterScroll(nil);
end;

procedure TFrm_SetupCalling.Query_PUBAfterScroll(DataSet: TDataSet);
begin
  inherited;
  FlatEdit1.Enabled :=false;
  if P_Insert then exit;
  FlatEdit1.Text := Query_PUB.fieldbyname('PAR_DESC').AsString;
  P_CurrentCode :=Query_PUB.FieldByName('PAR_VALUES').AsString;
   //***********当没有记录时要控制按钮及权限************
  If  not(Query_PuB.bof and Query_PuB.eof) Then
  begin
    //
    BitBtnAdd.Enabled:=true;
    BitBtnAlter.Enabled:=true;
    BitBtnDel.Enabled:=true;
    //权限
    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_SetupCalling.sqlcommit;
begin
  with Query_Tmp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('commit');
      ExecSql;
    end;
end;

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

end.