xsxx.pas

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

unit XSXX;

interface

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

type
  TXSXXForm = class(TForm)
    Panel1: TPanel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit8: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    ComboBox3: TComboBox;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    DateTimePicker2: TDateTimePicker;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XSXXForm: TXSXXForm;

implementation
uses datamodule;
{$R *.dfm}

procedure TXSXXForm.FormShow(Sender: TObject);
var i: integer;
begin
    Combobox1.Clear;
    with datamodule1 do
        begin
            table2.Active :=true;
            table2.first;
            for i:=1 to table2.RecordCount do
                begin
                    Combobox1.items.add(table2.FieldValues['bjbh']);
                    table2.Next;
                end;
        end;
end;

procedure TXSXXForm.BitBtn2Click(Sender: TObject);
begin
    combobox1.Text :='';
    combobox2.text :='';
    combobox3.text:='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    datetimepicker2.CleanupInstance;
    edit6.text:='';
    edit7.text:='';
    edit8.text:='';
end;

procedure TXSXXForm.BitBtn1Click(Sender: TObject);
begin
    if (combobox1.text='') or (edit1.text='') or (edit2.text='')
    or (edit3.text='') then
       begin
           MessageDlg('资料输入不全!', mtWarning, [mbOk], 0);
           exit;
       end;

    with datamodule1.table1 do
        begin
            open;
            append;
            FieldValues['bjbh'] := trim(combobox1.text);
            FieldValues['xm'] := trim(edit1.text);
            FieldValues['sfzh'] := trim(edit2.text);
            FieldValues['xh'] := trim(edit3.text);
            fieldvalues['rxsj']:=datetimepicker2.DateTime;
            fieldvalues['lxdh']:=trim(edit6.Text);
            fieldvalues['xnzz']:=trim(edit7.Text);
            fieldvalues['email']:=trim(edit8.Text);
            if radiobutton1.Checked then
                FieldValues['xb'] :=radiobutton1.caption;
            if radiobutton2.Checked then
                FieldValues['xb'] :=radiobutton2.caption;
            fieldvalues['zzmm']:=trim(combobox2.text);
            fieldvalues['yydj']:=trim(combobox3.text);
            fieldvalues['csrq']:=datetimepicker1.DateTime;
            Post;
            Showmessage('该学生的信息已输入！');
        end;
    combobox1.Text :='';
    combobox2.text :='';
    combobox3.text:='';
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    datetimepicker2.CleanupInstance;
    edit6.text:='';
    edit7.text:='';
    edit8.text:='';
end;

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

end.