reader.pas

图书管理系统

unit reader;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, DBCtrls, Mask, DBTables, ComCtrls;

type
  TAddReader = class(TForm)
    Panel1: TPanel;
    AddRead_no: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    Button3: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    MaskEdit1: TMaskEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    MonthCalendar1: TMonthCalendar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBLookupComboBox1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddReader: TAddReader;

implementation

{$R *.dfm}

procedure TAddReader.Button1Click(Sender: TObject);
begin
Close;
AddReader.Close;

end;

procedure TAddReader.Button2Click(Sender: TObject);
begin
  if edit1.Text='' then showmessage('请输入读者编号')
  else if edit2.Text='' then showmessage('请输入读者姓名')
    else  if combobox1.Text =''then showmessage('请选择读者性别')
      else  if DBLookupComboBox1.Text ='' then showmessage('请输入读者种类')
        else   if edit3.Text ='' then showmessage('请输入工作单位')
          else   if edit5.Text ='' then showmessage('电子邮件地址')
            else   if edit6.Text ='' then showmessage('累计数量')
              else   if maskedit1.Text ='' then showmessage('输入登记日期')
              else
              begin
              if messagedlg('确实要增加该读者？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin
          adotable1.Edit;
          adotable1.Append;
          adotable1.fieldbyname('reader_no').AsString := edit1.Text;
          adotable1.fieldbyname('reader_name').AsString := edit2.Text;
          adotable1.fieldbyname('reader_sex').AsString := combobox1.Text;
          adotable1.fieldbyname('reader_type').AsString := DBLookupComboBox1.Text;
          adotable1.fieldbyname('reader_dep').AsString := edit3.Text;
          adotable1.fieldbyname('reader_tel').AsString := edit4.Text;
          adotable1.fieldbyname('reader_email').AsString := edit5.Text;
          adotable1.fieldbyname('reader_amount').AsString := edit6.Text;
          adotable1.fieldbyname('reader_checkdate').AsString := maskedit1.Text;
          adotable1.fieldbyname('reader_memo').AsString := memo1.Text;
          adotable1.post;
          messagebeep(0);
          showmessage('添加成功');
//          adotable1.Append;

          if messagedlg('是否继续添加其它读者',mtInformation,[mbOK, mbCancel],0)=mrok then
     begin
     Edit1.Text := '';
     Edit2.Text := '';
     Edit3.Text := '';
     Edit4.Text := '';
     Edit5.Text := '';
     Edit6.Text := '';
     ComboBox1.Text := '';
     //dblookupcombobox1.Text := '';
     maskedit1.Text:='';
     Memo1.Text := '';
     end
       else
       begin
       Close;
       AddReader.Close;
       end;

 end
    else
    begin
     showmessage('添加失败');
     adotable1.Append;
    end;
    end;

end;


procedure TAddReader.Button3Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
ComboBox1.Text := '';
dblookupcombobox1.ListSource :=nil;
maskedit1.Text:='';
Memo1.Text := '';
end;

procedure TAddReader.DBLookupComboBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ADOTable2.Active:=false;
  ADOTable2.Active:=true;
  dblookupcombobox1.ListSource :=datasource2;
end;

end.