jxjh.pas

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

unit JXJH;

interface

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

type
  TJXJHForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JXJHForm: TJXJHForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TJXJHForm.FormShow(Sender: TObject);
var i:integer;
begin
    Combobox1.Clear;
    Combobox2.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;

            table9.Active :=true;
            table9.first;
            for i:=1 to table9.RecordCount do
                begin
                    Combobox2.items.add(table9.FieldValues['kcbh']);
                    table9.Next;
                end;
        end;
end;
procedure TJXJHForm.ComboBox1Select(Sender: TObject);
begin
    with datamodule1.table8 do
        begin
            if (combobox1.Text<>'') and (findkey([combobox1.Text])) then
                begin
                    edit1.text:=FieldValues['zymc'];
                    jxjhform.Repaint;
                end;
        end;
end;

procedure TJXJHForm.ComboBox2Select(Sender: TObject);
begin
    with datamodule1.table9 do
        begin
            if (combobox2.Text<>'') and (findkey([combobox2.Text])) then
                begin
                    edit2.text:=FieldValues['kcmc'];
                    jxjhform.Repaint;
                end;
        end;
end;
procedure TJXJHForm.BitBtn1Click(Sender: TObject);
var i:integer;
begin
    i:=radiogroup1.ItemIndex;
    if (combobox1.text='') or (combobox2.text='') then
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0)
    else
        with datamodule1.table7 do
            begin
                Open;
                append;
                FieldValues['zydm'] := trim(combobox1.text);
                FieldValues['kcbh'] := trim(combobox2.text);
                fieldvalues['xq']:=inttostr(i+1);
                Post;
                messagedlg('信息输入成功',mtinformation,[mbok],0);
                jxjhform.SetFocus;
            end;
end;

end.