main.~pas

图书管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Menus, ComCtrls, ToolWin, Buttons, ExtCtrls, ImgList,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, jpeg;

type
  TForm2 = class(TForm)
    ADOConnection1: TADOConnection;
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    b1: TMenuItem;
    N1: TMenuItem;
    C1: TMenuItem;
    N2: TMenuItem;
    D1: TMenuItem;
    E1: TMenuItem;
    F1: TMenuItem;
    N3: TMenuItem;
    G1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    H1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    H2: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton9: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    Panel4: TPanel;
    Label8: TLabel;
    Panel5: TPanel;
    ADOTable2DSDesigner: TWideStringField;
    ADOTable2DSDesigner2: TWideStringField;
    ADOTable2DSDesigner3: TWideStringField;
    ADOTable2DSDesigner4: TIntegerField;
    ADOTable2DSDesigner5: TIntegerField;
    ADOTable2DSDesigner6: TWideStringField;
    ADOTable2DSDesigner7: TWideStringField;
    ADOTable2DSDesigner8: TWideStringField;
    ADOTable2DSDesigner9: TBlobField;
    Label13: TLabel;
    DBEdit7: TDBEdit;
    DataSource2: TDataSource;
    Label14: TLabel;
    DBEdit11: TDBEdit;
    Label15: TLabel;
    DBEdit12: TDBEdit;
    Label16: TLabel;
    DBEdit13: TDBEdit;
    Label17: TLabel;
    DBEdit14: TDBEdit;
    Label18: TLabel;
    DBEdit15: TDBEdit;
    Label19: TLabel;
    DBEdit16: TDBEdit;
    Label20: TLabel;
    DBEdit17: TDBEdit;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    Panel6: TPanel;
    Label21: TLabel;
    Panel7: TPanel;
    Label22: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Panel8: TPanel;
    DBGrid3: TDBGrid;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOTable4DSDesigner: TAutoIncField;
    ADOTable4DSDesigner2: TWideStringField;
    ADOTable4BarCode: TIntegerField;
    ADOTable4DSDesigner3: TDateTimeField;
    ADOTable4DSDesigner4: TDateTimeField;
    ADOTable4DSDesigner5: TBooleanField;
    ADOTable4DSDesigner6: TBCDField;
    DataSource3: TDataSource;
    Panel9: TPanel;
    Label30: TLabel;
    GroupBox3: TGroupBox;
    Edit4: TEdit;
    Panel10: TPanel;
    Label31: TLabel;
    Edit11: TEdit;
    Label32: TLabel;
    Edit12: TEdit;
    Label33: TLabel;
    Edit13: TEdit;
    Panel11: TPanel;
    Label34: TLabel;
    Panel12: TPanel;
    Label35: TLabel;
    ToolButton13: TToolButton;
    Panel13: TPanel;
    Label36: TLabel;
    Edit14: TEdit;
    Panel14: TPanel;
    GroupBox4: TGroupBox;
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    DBGrid5: TDBGrid;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    DBGrid4: TDBGrid;
    Panel15: TPanel;
    GroupBox5: TGroupBox;
    RadioButton5: TRadioButton;
    RadioButton7: TRadioButton;
    Panel16: TPanel;
    Label37: TLabel;
    Edit15: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel17: TPanel;
    Label38: TLabel;
    DBGrid7: TDBGrid;
    DBGrid8: TDBGrid;
    ADOTable5: TADOTable;
    DataSource7: TDataSource;
    ADOTable6: TADOTable;
    DataSource8: TDataSource;
    Panel18: TPanel;
    Label39: TLabel;
    DBGrid9: TDBGrid;
    ADOTable7: TADOTable;
    DataSource9: TDataSource;
    Panel19: TPanel;
    GroupBox6: TGroupBox;
    ADOTable7DSDesigner: TWideStringField;
    ADOTable7DSDesigner2: TWideStringField;
    ADOTable7DSDesigner3: TWideStringField;
    Label40: TLabel;
    DBEdit18: TDBEdit;
    Label41: TLabel;
    DBEdit19: TDBEdit;
    Label42: TLabel;
    DBEdit20: TDBEdit;
    DBNavigator3: TDBNavigator;
    Image1: TImage;
    DBGrid6: TDBGrid;
    TabSheet9: TTabSheet;
    Panel20: TPanel;
    Label43: TLabel;
    Image2: TImage;
    ADOQuery5: TADOQuery;
    Timer1: TTimer;
    Timer2: TTimer;
    DataSource5: TDataSource;
    ADOQuery6: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure ADOTable1AfterPost(DataSet: TDataSet);
    procedure SpeedButton8Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure b1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses mmxg, dengl, gy;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  if not ADOTable1.Active then
  ADOTable1.Open;
  if not ADOTable2.Active then
  ADOTable2.Open;
  if not ADOTable3.Active then
  ADOTable3.Open;
  if not ADOTable4.Active then
  ADOTable4.Open;
  if not ADOTable5.Active then
  ADOTable5.Open;
  if not ADOTable6.Active then
  ADOTable6.Open;
  if not ADOTable7.Active then
  ADOTable7.Open;

 pagecontrol1.ActivePage:=tabsheet9;
end;

procedure TForm2.ADOTable1AfterPost(DataSet: TDataSet);
var
  i,CurrentMax:integer;
begin
     ADOTable3.Last;
    CurrentMax:=ADOTable3.FieldByName('BarCode').AsInteger;
      for i:=1 to ADOTable1.FieldByName('现存数量').asInteger do
      begin
      ADOTable3.Append;
      ADOTable3.FieldByName('ISBN').AsString:=ADOTable1.FieldByName('ISBN').AsString;
      CurrentMax:=CurrentMax+1;
      ADOTable3.FieldByName('BarCode').AsInteger:=CurrentMax;
      ADOTable3.Post;
      end;
    adotable3.Close;
    adotable3.open;
end;


procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
if messagedlg('确认退出图书管理系统吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
application.Terminate;
end;