num_set.pas

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· PAS 代码 · 共 113 行

unit num_set;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ComCtrls, Buttons;

type
  Tnumset = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  numset: Tnumset;

implementation

{$R *.dfm}

procedure Tnumset.BitBtn1Click(Sender: TObject);
begin
 if ComboBox1.Text='' then
  begin
  showmessage('请选择用户类型！');
  end
  else
  begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select Max_days from [Group] where GroupName='''+ComboBox1.Text+'''';
  ADOQuery1.Open;
  //if adoquery1.FieldByName('Max_days').AsString <> '' then
  //begin
  Edit3.Text:=adoquery1.FieldByName('Max_days').AsString;
  //end
  {else
  begin
  showmessage('对不起，不存在！')
  end;}
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select Max_nums from [Group] where GroupName='''+ComboBox1.Text+'''';
  ADOQuery1.Open;
  //if adoquery1.FieldByName('Max_nums').AsString <> '' then
  //begin
  Edit2.Text:=adoquery1.FieldByName('Max_nums').AsString;
  //end
  {else
  begin
  showmessage('对不起，不存在！')
  end;}
  end;
end;

procedure Tnumset.BitBtn2Click(Sender: TObject);
begin
   if (Edit1.Text='')or(Edit2.Text='') then
  begin
  end
  else
    begin
    adocommand1.CommandText:='update [Group] set Max_nums='''+edit1.Text+''' where GroupName='''+ComboBox1.Text+'''';
    adocommand1.Execute;
    adocommand1.CommandText:='update [Group] set Max_days='''+edit4.Text+''' where GroupName='''+ComboBox1.Text+'''';
    adocommand1.Execute;
    showmessage('修改成功');
    //close;
     end;
end;

procedure Tnumset.BitBtn3Click(Sender: TObject);
begin
 close;
end;

procedure Tnumset.FormShow(Sender: TObject);
begin
edit1.Text:='';
edit2.text:='';
Edit3.Text:='';
edit4.Text:='';
Combobox1.Text:='';
end;

end.