unit_setuppara.pas

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

unit Unit_SetupPara;

interface

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

type
  TFrm_SetupPara = class(TFrm_Config)
    FlatEdit2: TFlatEdit;
    Label1: TLabel;
    Label2: TLabel;
    FlatEdit3: TFlatEdit;
    Label4: TLabel;
    FlatEdit4: TFlatEdit;
    Label5: TLabel;
    Label6: TLabel;
    FlatEdit6: TFlatEdit;
    Label7: TLabel;
    FlatEdit7: TFlatEdit;
    Label8: TLabel;
    FlatEdit8: TFlatEdit;
    Label9: TLabel;
    FlatEdit9: TFlatEdit;
    Label10: TLabel;
    FlatEdit10: TFlatEdit;
    Label11: TLabel;
    FlatEdit11: TFlatEdit;
    Label12: TLabel;
    FlatEdit12: TFlatEdit;
    Label13: TLabel;
    FlatEdit13: TFlatEdit;
    Label14: TLabel;
    FlatEdit14: TFlatEdit;
    Label15: TLabel;
    FlatEdit15: TFlatEdit;
    Label16: TLabel;
    FlatEdit16: TFlatEdit;
    DateTimePicker1: TDateTimePicker;
    UpdateSQL1: TUpdateSQL;
    procedure BitBtnAddClick(Sender: TObject);
    procedure BitBtnAlterClick(Sender: TObject);
    procedure BitBtnDelClick(Sender: TObject);
    procedure BitBtnSaveClick(Sender: TObject);
    procedure Query_PUBAfterScroll(DataSet: TDataSet);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdit16KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sqlcommit;
  private
    { Private declarations }
    //当前的节日编码
    P_CurrentCode :string;
    //判断是否为插入状态
    P_Insert :boolean;
    //设置编辑框的灰和不灰Lflag为true,可编辑
    procedure ProcSetPanel(Lflag:boolean);
  public
    { Public declarations }
  end;

var
  Frm_SetupPara: TFrm_SetupPara;

implementation

uses dmmain,main,unit_public;

{$R *.DFM}

procedure TFrm_SetupPara.BitBtnAddClick(Sender: TObject);
begin
  inherited;
   if not Query_PUB.Eof then
     begin
       MessageDlg('已有版本信息存在！',mtConfirmation, [mbYes], 0);
       SetBitBtn(true);
       exit;
     end;
  kk:=1;
  FlatEdit1.Text:='';
  ProcSetPanel(true);
  FlatEdit1.SetFocus;
  //ShowMessage(' 请输入参数内容! ');
  SetBitBtn(false);
  //with Query_PUB do
  //begin
  //  if Not Active then
  //     Active:=true;
  //end;

  SetBitBtn(false);
  //Query_PUBAfterScroll(nil);
end;

procedure TFrm_SetupPara.BitBtnAlterClick(Sender: TObject);
begin
  inherited;
  kk := 2;
  //ShowMessage(' 请输入需要修改的参数内容！ ');
  FlatEdit1.SelectAll;
  ProcSetPanel(true);
  FlatEdit1.SetFocus;
  SetBitBtn(false);
  //Query_PUBAfterScroll(nil);
end;

procedure TFrm_SetupPara.BitBtnDelClick(Sender: TObject);
begin
  inherited;
{  if MessageDlg('是否要删除该记录?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
  Dm_Main.Databasedh.StartTransaction;
  with Query_Tmp do
   begin
     Close;
     Sql.Clear;
     Sql.Add('Delete t_d_system where VERSION=:p1');
     ParamByName('p1').AsString := Query_PUB.FieldByName('VERSION').AsString;
     ExecSql;
   end;
  //sqlcommit;
  Dm_Main.Databasedh.Commit;
  Query_Pub.Close;
  Query_Pub.Open;
  //Query_PUBAfterScroll(nil); }
end;

procedure TFrm_SetupPara.BitBtnSaveClick(Sender: TObject);
begin
  inherited;
  if kk=2 then
  if MessageDlg('是否要更新该记录?',mtConfirmation, [mbYes,mbNo], 0)=mrNo then  exit;
  //Dm_Main.Databasedh.StartTransaction;
  case kk of
  1:  // add
     Begin
       if not Query_PUB.Eof then
         begin
           MessageDlg('已有版本信息存在！',mtConfirmation, [mbYes], 0);
           SetBitBtn(true);
           exit;
         end;
       with Query_Tmp do
         begin
           Close;
           Sql.Clear;
           Sql.Add('insert into t_d_system values(:VERSION,:USERNAME,:PASSWORD,:VER,:MODITIME,:MODICONTENT,:SERVERADDR,:SERVERIP,:SERVERPORT,:SUSERNAME,:SPASSWORD,:LOCATEDIR,:SPROXY,:SPROXYPORT,:USEPROXY,:UPLOADPWD)');
           ParamByName('VERSION').AsString := FlatEdit1.Text;
           ParamByName('USERNAME').AsString := FlatEdit2.Text;
           ParamByName('PASSWORD').AsString := FlatEdit3.Text;;
           ParamByName('VER').AsString := FlatEdit4.Text;
           ParamByName('MODITIME').AsDateTime := DateTimePicker1.DateTime;
           ParamByName('MODICONTENT').AsString := FlatEdit6.Text;;
           ParamByName('SERVERADDR').AsString := FlatEdit7.Text;
           ParamByName('SERVERIP').AsString := FlatEdit8.Text;
           ParamByName('SERVERPORT').AsString := FlatEdit9.Text;;
           ParamByName('SUSERNAME').AsString := FlatEdit10.Text;
           ParamByName('SPASSWORD').AsString := FlatEdit11.Text;
           ParamByName('LOCATEDIR').AsString := FlatEdit12.Text;;
           ParamByName('SPROXY').AsString := FlatEdit13.Text;
           ParamByName('SPROXYPORT').AsString := FlatEdit14.Text;
           ParamByName('USEPROXY').AsString := FlatEdit15.Text;;
           ParamByName('UPLOADPWD').AsString := FlatEdit16.Text;
           ExecSql;
         end;
     end;
  2:  // edit
     begin
       with Query_Tmp do
         begin
           Close;
           Sql.Clear;
           Sql.Add('update t_d_system set VERSION=:VERSION,USERNAME=:USERNAME,');
           Sql.Add('PASSWORD=:PASSWORD,VER=:VER,');
           Sql.Add('MODITIME=:MODITIME,MODICONTENT=:MODICONTENT,');
           Sql.Add('SERVERADDR=:SERVERADDR,SERVERIP=:SERVERIP,');
           Sql.Add('SERVERPORT=:SERVERPORT,SUSERNAME=:SUSERNAME,');
           Sql.Add('SPASSWORD=:SPASSWORD,LOCATEDIR=:LOCATEDIR,');
           Sql.Add('SPROXY=:SPROXY,SPROXYPORT=:SPROXYPORT,');
           Sql.Add('USEPROXY=:USEPROXY,UPLOADPWD=:UPLOADPWD');
           ParamByName('VERSION').AsString := FlatEdit1.Text;
           ParamByName('USERNAME').AsString := FlatEdit2.Text;
           ParamByName('PASSWORD').AsString := FlatEdit3.Text;;
           ParamByName('VER').AsString := FlatEdit4.Text;
           ParamByName('MODITIME').AsDateTime := DateTimePicker1.DateTime;
           ParamByName('MODICONTENT').AsString := FlatEdit6.Text;;
           ParamByName('SERVERADDR').AsString := FlatEdit7.Text;
           ParamByName('SERVERIP').AsString := FlatEdit8.Text;
           ParamByName('SERVERPORT').AsString := FlatEdit9.Text;;
           ParamByName('SUSERNAME').AsString := FlatEdit10.Text;
           ParamByName('SPASSWORD').AsString := FlatEdit11.Text;
           ParamByName('LOCATEDIR').AsString := FlatEdit12.Text;;
           ParamByName('SPROXY').AsString := FlatEdit13.Text;
           ParamByName('SPROXYPORT').AsString := FlatEdit14.Text;
           ParamByName('USEPROXY').AsString := FlatEdit15.Text;;
           ParamByName('UPLOADPWD').AsString := FlatEdit16.Text;
           ExecSql;
         end;
     end;
  end;
  //sqlcommit;
  //Dm_Main.Databasedh.Commit;
  //*************数据同步********************
  case kk of
  1:  // add
     Begin
       P_Insert :=true;
       Query_Pub.insert;
       Query_Tmp.close;
       Query_Tmp.sql.text :=
        'select nvl(max(VERSION),0) from t_d_system';
       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('USERNAME').AsString :=FlatEdit2.Text ;
   Query_PUB.FieldByName('PASSWORD').AsString :=FlatEdit3.Text;
   Query_PUB.FieldByName('VER').AsString :=FlatEdit4.Text;
   Query_PUB.FieldByName('MODITIME').AsDateTime :=DateTimePicker1.DateTime;
   Query_PUB.FieldByName('MODICONTENT').AsString :=FlatEdit6.Text;
   Query_PUB.FieldByName('SERVERADDR').AsString :=FlatEdit7.Text;
   Query_PUB.FieldByName('SERVERIP').AsString :=FlatEdit8.Text;
   Query_PUB.FieldByName('SERVERPORT').AsString :=FlatEdit9.Text;
   Query_PUB.FieldByName('SUSERNAME').AsString :=FlatEdit10.Text;
   Query_PUB.FieldByName('SPASSWORD').AsString :=FlatEdit11.Text;
   Query_PUB.FieldByName('LOCATEDIR').AsString :=FlatEdit12.Text;
   Query_PUB.FieldByName('SPROXY').AsString :=FlatEdit13.Text;
   Query_PUB.FieldByName('SPROXYPORT').AsString :=FlatEdit14.Text;
   Query_PUB.FieldByName('USEPROXY').AsString :=FlatEdit15.Text;
   Query_PUB.FieldByName('UPLOADPWD').AsString :=FlatEdit16.Text;
   Query_PUB.FieldByName('VERSION').AsString :=P_CurrentCode;
   P_Insert :=false;
  Query_Pub.Post;
  //*****************************************

  SetBitBtn(true);
  Query_PUBAfterScroll(nil);
end;

procedure TFrm_SetupPara.Query_PUBAfterScroll(DataSet: TDataSet);
begin
  inherited;
  ProcSetPanel(false);
  if P_Insert then exit;
   FlatEdit1.Text := Query_PUB.FieldByName('VERSION').AsString  ;
   FlatEdit2.Text := Query_PUB.FieldByName('USERNAME').AsString  ;
   FlatEdit3.Text := Query_PUB.FieldByName('PASSWORD').AsString ;
   FlatEdit4.Text := Query_PUB.FieldByName('VER').AsString ;
   DateTimePicker1.DateTime := Query_PUB.FieldByName('MODITIME').AsDateTime ;
   FlatEdit6.Text := Query_PUB.FieldByName('MODICONTENT').AsString ;
   FlatEdit7.Text := Query_PUB.FieldByName('SERVERADDR').AsString ;
   FlatEdit8.Text := Query_PUB.FieldByName('SERVERIP').AsString ;
   FlatEdit9.Text := Query_PUB.FieldByName('SERVERPORT').AsString ;
   FlatEdit10.Text := Query_PUB.FieldByName('SUSERNAME').AsString ;
   FlatEdit11.Text := Query_PUB.FieldByName('SPASSWORD').AsString ;
   FlatEdit12.Text := Query_PUB.FieldByName('LOCATEDIR').AsString ;
   FlatEdit13.Text := Query_PUB.FieldByName('SPROXY').AsString;
   FlatEdit14.Text := Query_PUB.FieldByName('SPROXYPORT').AsString;
   FlatEdit15.Text := Query_PUB.FieldByName('USEPROXY').AsString;
   FlatEdit16.Text := Query_PUB.FieldByName('UPLOADPWD').AsString ;
   P_CurrentCode :=Query_PUB.FieldByName('VERSION').AsString;
   //***********当没有记录时要控制按钮及权限************
  If  not(Query_PuB.bof and Query_PuB.eof) Then
  begin
    //权限
    BitBtnAlter.Enabled :=false;
    BitBtnAdd.Enabled:=false;
    BitBtnDel.Enabled:=false;
  end
    else
      begin
        BitBtnAdd.Enabled:=false;
        BitBtnAlter.Enabled:=false;
        BitBtnDel.Enabled:=false;
      end;
   //*******************************************
end;

procedure TFrm_SetupPara.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit2.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit3.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit4.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then DateTimePicker1.SetFocus;
end;

procedure TFrm_SetupPara.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit6.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit7.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit8.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit9.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit10.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit10KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit11.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit11KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit12.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit12KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit13.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit13KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit14.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit14KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit15.SetFocus;
end;

procedure TFrm_SetupPara.FlatEdit15KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then FlatEdit16.SetFocus;
end;

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

procedure TFrm_SetupPara.BitBtnCancelClick(Sender: TObject);
begin
  inherited;
  Query_PUBAfterScroll(nil);
end;

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

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

procedure TFrm_SetupPara.ProcSetPanel(Lflag: boolean);
var
  li:integer;
begin
  for li:=1 to Frm_SetupPara.ComponentCount -1  do
  begin
    if Frm_SetupPara.Components[li]  is TDateTimePicker then
    begin
      TDateTimePicker(Frm_SetupPara.Components[li]).enabled :=Lflag;
      if kk=1 then
      TDateTimePicker(Frm_SetupPara.Components[li]).datetime :=now();
    end;

    if Frm_SetupPara.Components[li]  is TFlatEdit then
    begin
      TFlatEdit(Frm_SetupPara.Components[li]).enabled :=Lflag;
      if kk=1 then
      TFlatEdit(Frm_SetupPara.Components[li]).text :='';
    end;
  end;
end;

end.