setupform.~pas

来自「基于SQL数据库,实现所有图书馆基本功能 可以按图书类别系别班别等信息自动」· ~PAS 代码 · 共 64 行

unit SetupForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons,DataModule, WinSkinData;

type
  TForm_Setup = class(TForm)
    Label1: TLabel;
    ED_Days: TEdit;
    Label2: TLabel;
    ED_Loss: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    ED_Money: TEdit;
    ED_Max_Num_Book: TEdit;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Setup: TForm_Setup;

implementation

{$R *.dfm}

procedure TForm_Setup.FormShow(Sender: TObject);
begin
DM.ADOQuery2.SQL.Clear;
DM.ADOQuery2.SQL.Add('select top 1 * from setup');
DM.ADOQuery2.Open;

 ED_Days.Text:=DM.ADOQuery2.FieldByName('Days').AsString;
 ED_Money.Text:=DM.ADOQuery2.FieldByName('aMoney').AsString;
 ED_Loss.Text:=DM.ADOQuery2.FieldByName('Loss').AsString;
 ED_Max_Num_Book.Text:=DM.ADOQuery2.FieldByName('Max_Num_Book').AsString;
end;

procedure TForm_Setup.BitBtn1Click(Sender: TObject);
begin


 DM.ADOQuery2.SQL.Clear;
 DM.ADOQuery2.SQL.Add('update setup ');
 DM.ADOQuery2.SQL.Add(' set Days='+ED_Days.Text);
 DM.ADOQuery2.SQL.Add(', aMoney='+ED_Money.Text);
 DM.ADOQuery2.SQL.Add(', Loss='+ED_Loss.Text);
 DM.ADOQuery2.SQL.Add(', Max_Num_Book='+ED_Max_Num_Book.Text);
 DM.ADOQuery2.ExecSQL;



end;

end.