zykc.pas

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

unit ZYKC;

interface

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

type
  TZKForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZKForm: TZKForm;

implementation

uses DataModule;

{$R *.dfm}

procedure TZKForm.BitBtn1Click(Sender: TObject);
begin
    if (edit1.text='') or (edit2.Text='') then
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0)
    else
        with datamodule1.table9 do
            begin
                Close;
                TableName:='dbo.ZY';
                Open;
                append;
                FieldValues['ZYDM'] := trim(edit1.text);
                FieldValues['ZYMC'] := trim(edit2.text);
                Post;
                edit1.Text:='';
                edit2.Text:='';
                messagedlg('信息输入成功',mtinformation,[mbok],0);
            end;
end;

procedure TZKForm.BitBtn2Click(Sender: TObject);
begin
    if (edit3.text='') or (edit4.Text='') then
        MessageDlg('资料输入不全!', mtWarning, [mbOk], 0)
    else
        with datamodule1.table9 do
            begin
                Close;
                TableName:='KC';
                Open;
                append;
                FieldValues['kcbh'] := trim(edit3.text);
                FieldValues['kcmc'] := trim(edit4.text);
                Post;
                edit3.Text:='';
                edit4.Text:='';
                messagedlg('信息输入成功',mtinformation,[mbok],0);
            end;
end;

end.