delphi+access水电管理系统(五)

  end;

  with adoCfngPara do
  begin
    Close;
    SQL.Clear;
    SQL.Text := strInsert;
    try
      ExecSQL;
      Sdgl.ShowErrMsg('数据提交完成！');
      frmCnfgPara.Close;
    except
      Sdgl.ShowErrMsg('提交数据出错！');
      Exit;
    end;
  end;

  if OldUnitName <> Trim(edtUnitName.Text) then  //改变了使用单位的名称
    DeleteAllHistroyData;

  ModifyUnitName(Trim(edtUnitName.Text));   //修改车间表中的单位名称
end;

procedure TfrmCnfgPara.edtUnitNameKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then
   if (Trim(edtUnitName.Text) <> '') then
    maskPw.SetFocus
  else begin
    Sdgl.ShowErrMsg('请输入单位名称或密码！');
  end;
end;

procedure TfrmCnfgPara.maskPwKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    if (Trim(edtUnitName.Text) <> '') and (Trim(maskPw.Text) <> '') then
      BitBtn1Click(Sender)
    else begin
      Sdgl.ShowErrMsg('请输入单位名称或密码！');
      edtUnitName.SetFocus;
    end;
end;

procedure TfrmCnfgPara.DeleteAllHistroyData;
var
  strDelete: Array[1..4] of String;
  I: Integer;
begin
  {FQuery := TADOQuery.Create(Nil);
  Sdgl.SetConnectString(FQuery);}

  strDelete[1] := 'delete from TakeMeter';
  strDelete[2] := 'delete from Meter';
  strDelete[3] := 'delete from Price';
  strDelete[4] := 'delete from Workshop';

  with FQuery do begin
    for I := Low(strDelete) to High(strDelete) do begin
      Close;
      SQL.Clear;
      SQL.Text := strDelete[I];
      try
        ExecSQL;
      except
        //
      end;
    end;
    //Free;
  end;

end;

procedure TfrmCnfgPara.ModifyUnitName(strUnitName: String);
var
  strUnitSQL: String;
begin
  with FQuery do begin
    if Sdgl.CurUnitName = '' then
      strUnitSQL := 'insert into workshop values ('+ '1, '+ #39+ strUnitName + #39 + ' ,0,' + #39 + strUnitName+ #39 + ',0)'
    else
      strUnitSQL := 'update workshop set WrokShopName = '+ #39 + strUnitName +#39;

    Close;
    SQL.Clear;
    SQL.Text := strUnitSQL;
    try
      ExecSQL;
    except
      //
    end;
  e

首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/12/12