Top = 486
Width = 65
Height = 21
+ ReadOnly = True
TabOrder = 12
end
object UpDown1: TUpDown
Max = 300
Position = 30
TabOrder = 13
+ OnClick = UpDown1Click
end
object Edit6: TEdit
Left = 64
Control = Edit4
Track = True
end
- object LinkControlToField6: TLinkControlToField
- Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
- DataSource = BindSourceDB2
- FieldName = 'count'
- Control = Edit5
- Track = True
- end
object LinkControlToField4: TLinkControlToField
Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
DataSource = BindSourceDB2
Edit5: TEdit;
UpDown1: TUpDown;
Edit6: TEdit;
- LinkControlToField6: TLinkControlToField;
LinkControlToField4: TLinkControlToField;
ComboBox1: TComboBox;
Button6: TButton;
procedure Button6Click(Sender: TObject);
procedure ComboBox1Select(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
+ procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
private
{ Private \90é\8c¾ }
public
with TIdHashSHA1.Create do
begin
try
- result:=HashStringAsHex(str);
+ result := HashStringAsHex(str);
finally
Free;
end;
end;
end;
+
begin
if Edit6.Text <> '' then
- FDTable2.FieldByName('password').AsString:=hash(hash(Edit6.Text));
+ FDTable2.FieldByName('password').AsString := hash(hash(Edit6.Text));
FDTable2.Post;
FDTable2.Edit;
end;
end;
procedure TForm1.ComboBox1Select(Sender: TObject);
-var
- i: Integer;
begin
FDQuery1.Open('select * from dbname');
FDTable2.FieldByName('info').AsInteger := FDQuery1.Lookup('database',
'database');
Close;
end;
+ CheckBox1.Checked := FDTable2.FieldByName('mente').AsInteger = 1;
+ UpDown1.Position := FDTable2.FieldByName('count').AsInteger;
FDTable2.Edit;
- CheckBox1Click(nil);
+end;
+
+procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
+begin
+ FDTable2.FieldByName('count').AsInteger := UpDown1.Position;
end;
end.