Left = 0
Top = 0
Caption = 'Form1'
- ClientHeight = 299
+ ClientHeight = 657
ClientWidth = 635
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
object Label1: TLabel
Left = 48
Top = 56
- Width = 6
+ Width = 3
Height = 13
- Caption = '1'
+ end
+ object Label2: TLabel
+ Left = 20
+ Top = 531
+ Width = 14
+ Height = 13
+ Caption = 'NG'
+ end
+ object Label3: TLabel
+ Left = 8
+ Top = 579
+ Width = 36
+ Height = 13
+ Caption = #35373#23450#29992
+ end
+ object Label4: TLabel
+ Left = 286
+ Top = 489
+ Width = 36
+ Height = 13
+ Caption = #35519#25972#20013
end
object Button1: TButton
Left = 296
Height = 21
ReadOnly = True
TabOrder = 3
- Text = 'slide1.jpg'
end
object DBNavigator1: TDBNavigator
Left = 224
TabOrder = 6
OnClick = Button4Click
end
+ object Memo1: TMemo
+ Left = 64
+ Top = 376
+ Width = 425
+ Height = 89
+ TabOrder = 7
+ end
+ object CheckBox1: TCheckBox
+ Left = 64
+ Top = 488
+ Width = 97
+ Height = 17
+ Caption = 'mente'
+ TabOrder = 8
+ OnClick = CheckBox1Click
+ end
+ object Edit3: TEdit
+ Left = 64
+ Top = 528
+ Width = 425
+ Height = 21
+ TabOrder = 9
+ end
+ object Edit4: TEdit
+ Left = 64
+ Top = 325
+ Width = 209
+ Height = 21
+ TabOrder = 10
+ end
+ object Button5: TButton
+ Left = 520
+ Top = 323
+ Width = 75
+ Height = 25
+ Caption = 'default'
+ TabOrder = 11
+ end
+ object Edit5: TEdit
+ Left = 328
+ Top = 486
+ Width = 65
+ Height = 21
+ TabOrder = 12
+ end
+ object UpDown1: TUpDown
+ Left = 393
+ Top = 486
+ Width = 16
+ Height = 21
+ Associate = Edit5
+ Min = 5
+ Max = 300
+ Position = 30
+ TabOrder = 13
+ end
+ object Edit6: TEdit
+ Left = 64
+ Top = 576
+ Width = 121
+ Height = 21
+ TabOrder = 14
+ end
+ object ComboBox1: TComboBox
+ Left = 280
+ Top = 576
+ Width = 145
+ Height = 21
+ TabOrder = 15
+ OnSelect = ComboBox1Select
+ end
+ object Button6: TButton
+ Left = 520
+ Top = 368
+ Width = 75
+ Height = 25
+ Caption = 'adapt'
+ TabOrder = 16
+ OnClick = Button6Click
+ end
object FDConnection1: TFDConnection
Params.Strings = (
- 'ConnectionDef=test_server')
+ 'ConnectionDef=first_sql')
Connected = True
Left = 144
Top = 64
Control = Edit1
Track = True
end
+ object LinkControlToField1: TLinkControlToField
+ Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
+ DataSource = BindSourceDB2
+ FieldName = 'ng'
+ Control = Edit3
+ Track = True
+ end
+ object LinkControlToField5: TLinkControlToField
+ Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
+ DataSource = BindSourceDB2
+ FieldName = 'title'
+ 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
+ FieldName = 'title2'
+ Control = Memo1
+ Track = False
+ end
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Provider = 'Forms'
Left = 232
Top = 112
end
+ object FDQuery1: TFDQuery
+ Connection = FDConnection1
+ SQL.Strings = (
+ 'use kainushi;'
+ 'create table images(id int primary key,'
+ ' name varchar(30), source mediumblob);')
+ Left = 440
+ Top = 112
+ end
+ object FDTable2: TFDTable
+ Active = True
+ Connection = FDConnection1
+ UpdateOptions.UpdateTableName = 'setting'
+ TableName = 'setting'
+ Left = 496
+ Top = 280
+ end
+ object BindSourceDB2: TBindSourceDB
+ DataSet = FDTable2
+ ScopeMappings = <>
+ Left = 368
+ Top = 304
+ end
end
Vcl.Bind.DBEngExt, Data.Bind.Components, Data.Bind.DBScope,
FireDAC.VCLUI.Wait, FireDAC.Comp.UI, Vcl.DBCtrls, Jpeg, Vcl.Grids,
Vcl.DBGrids,
- FireDAC.Phys.IB, FireDAC.Phys.IBDef, FireDAC.Phys.FB, FireDAC.Phys.FBDef;
+ FireDAC.Phys.IB, FireDAC.Phys.IBDef, FireDAC.Phys.FB, FireDAC.Phys.FBDef,
+ Vcl.ComCtrls;
type
TForm1 = class(TForm)
FDTable1NAME: TWideStringField;
FDTable1SOURCE: TBlobField;
Button4: TButton;
+ FDQuery1: TFDQuery;
+ Memo1: TMemo;
+ CheckBox1: TCheckBox;
+ Edit3: TEdit;
+ Label2: TLabel;
+ FDTable2: TFDTable;
+ BindSourceDB2: TBindSourceDB;
+ LinkControlToField1: TLinkControlToField;
+ Edit4: TEdit;
+ LinkControlToField5: TLinkControlToField;
+ Button5: TButton;
+ Edit5: TEdit;
+ UpDown1: TUpDown;
+ Edit6: TEdit;
+ LinkControlToField6: TLinkControlToField;
+ LinkControlToField4: TLinkControlToField;
+ ComboBox1: TComboBox;
+ Button6: TButton;
+ Label3: TLabel;
+ Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
+ procedure Button6Click(Sender: TObject);
+ procedure ComboBox1Select(Sender: TObject);
+ procedure CheckBox1Click(Sender: TObject);
private
{ Private \90é\8c¾ }
public
implementation
+uses System.NetEncoding, IdHashSHA, IdHashMessageDigest;
+
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
end;
end;
+procedure TForm1.Button6Click(Sender: TObject);
+ function hash(str: string): string;
+ begin
+ with TIdHashSHA1.Create do
+ begin
+ try
+ result:=HashStringAsHex(str);
+ finally
+ Free;
+ end;
+ end;
+ end;
+begin
+ if Edit6.Text <> '' then
+ FDTable2.FieldByName('password').AsString:=hash(hash(Edit6.Text));
+ FDTable2.Post;
+ FDTable2.Edit;
+end;
+
+procedure TForm1.CheckBox1Click(Sender: TObject);
+var
+ i: Integer;
+begin
+ if CheckBox1.Checked = true then
+ i := 1
+ else
+ i := 0;
+ FDTable2.FieldByName('mente').AsInteger := i;
+end;
+
+procedure TForm1.ComboBox1Select(Sender: TObject);
+var
+ i: Integer;
+begin
+ FDQuery1.Open('select * from dbname');
+ FDTable2.FieldByName('info').AsInteger := FDQuery1.Lookup('database',
+ ComboBox1.Text, 'dbnum');
+ FDQuery1.Close;
+end;
+
procedure TForm1.FormCreate(Sender: TObject);
+var
+ s: string;
begin
if FDTable1.Exists = false then
begin
FDTable1.Close;
- FDTable1.CreateTable;
+ FDQuery1.ExecSQL;
FDTable1.Open;
- FDTable1.Refresh;
end;
+ FDTable1.Refresh;
+ FDTable2.Refresh;
+ ComboBox1.Items.Clear;
+ with FDQuery1 do
+ begin
+ Open('select * from dbname;');
+ while Eof = false do
+ begin
+ s := FieldByName('database').AsString;
+ if s <> 'master' then
+ ComboBox1.Items.Add(s);
+ Next;
+ end;
+ ComboBox1.Text := Lookup('dbnum', FDTable2.FieldByName('info').AsInteger,
+ 'database');
+ Close;
+ end;
+ FDTable2.Edit;
+ CheckBox1Click(nil);
end;
end.