bjkc.~pas

delphi下 数据库图书馆管理系统的实现

unit BJKC;

interface

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

type
  TBJKCForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BJKCForm: TBJKCForm;

implementation

{$R *.dfm}

procedure TBJKCForm.FormShow(Sender: TObject);
var i:integer;
begin
    with datamodule1 do
        begin
            table9.Active :=true;
            table9.first;
            for i:=1 to table9.RecordCount do
                begin
                    Combobox1.items.add(table9.FieldValues['kcmc']);
                    table9.Next;
                end;
        end;
end;
procedure TBJKCForm.BitBtn1Click(Sender: TObject);
begin
    if (edit1.text='') or (combobox1.text='') or (edit2.Text='') or (combobox2.Text='') or (edit3.Text='') or  (edit4.Text='') then
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0)
    else
        with datamodule1.table5 do
            begin
                Open;
                append;
                FieldValues['bjbh'] := trim(edit1.text);
                FieldValues['kcmc'] := trim(combobox1.text);
                fieldvalues['xq']:=trim(combobox2.Text);
                fieldvalues['jsxs']:=trim(edit2.Text);
                fieldvalues['sjxs']:=trim(edit3.Text);
                fieldvalues['jsjs']:=trim(edit4.Text);
                Post;
                edit1.Text:='';
                edit2.Text:='';
                edit3.Text:='';
                edit4.Text:='';
                messagedlg('信息输入成功',mtinformation,[mbok],0);
            end;
end;

end.