banji.~pas

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

unit Banji;

interface

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

type
  TBJForm = class(TForm)
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Panel1: TPanel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BJForm: TBJForm;

implementation
uses DataModule;

{$R *.dfm}

procedure TBJForm.FormShow(Sender: TObject);
var i: integer;
begin
    Combobox1.Clear;
    with datamodule1 do
        begin
            table8.Active:=True;
            table8.First;
            for i:=1 to table8.RecordCount do
                begin
                    combobox1.Items.Add(table8.FieldValues['zydm']);
                    table8.Next;
                end;
         end;
end;

procedure TBJForm.ComboBox1Select(Sender: TObject);
begin
    with datamodule1.Table8 do
        begin
            if (combobox1.Text<>'') and (findkey([combobox1.Text])) then
            begin
                edit3.Text:=fieldvalues['zymc'];
                bjform.Repaint;
            end;
        end;
end;

procedure TBJForm.BitBtn1Click(Sender: TObject);
var i:integer;
begin
    if (edit1.Text='') or (edit2.Text='')
    or (combobox1.Text='') then
        begin
            MessageDlg('资料不全',mtWarning, [mbOK], 0);
            exit;
        end;
    datamodule1.table2.active:=true;
    with datamodule1.table2 do
        begin
            append;
            FieldValues['bjbh'] := trim(edit1.text);
            FieldValues['bjmc'] := trim(edit2.text);
            FieldValues['zydm'] := trim(combobox1.text);
            FieldValues['sfje'] := trim(edit4.text);
            FieldValues['bzr'] :=trim(edit5.text);
            if radiobutton1.Checked then
                FieldValues['xuezhi'] :=radiobutton1.caption;
            if radiobutton2.Checked then
                FieldValues['xuezhi'] :=radiobutton2.caption;
            if radiobutton3.Checked then
                FieldValues['xuezhi'] :=radiobutton3.caption;
            Post;
        end;
    combobox1.Text :='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    showmessage('看看表中的数据输入对了吗？');

end;

procedure TBJForm.BitBtn2Click(Sender: TObject);
begin
    combobox1.Text :='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
end;

procedure TBJForm.BitBtn3Click(Sender: TObject);
begin
    Close;
end;

end.