unit1.pas

图书管理系统 简介 随着科学技术的飞速发展

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, ImgList, Buttons, ExtCtrls, XPMenu, DB
  , ADODB, Grids, DBGrids, StdCtrls, JPEG, IniFiles;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    ScrollBox1: TScrollBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel2: TPanel;
    Panel4: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TreeView1: TTreeView;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    ImageList2: TImageList;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    DBGrid2: TDBGrid;
    CheckBox1: TCheckBox;
    Edit4: TEdit;
    Button4: TButton;
    Label4: TLabel;
    TabSheet4: TTabSheet;
    DBGrid3: TDBGrid;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Edit12: TEdit;
    Label14: TLabel;
    Button8: TButton;
    SpeedButton6: TSpeedButton;
    TabSheet5: TTabSheet;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    ComboBox3: TComboBox;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Panel5: TPanel;
    Image2: TImage;
    Button9: TButton;
    Button10: TButton;
    DBGrid4: TDBGrid;
    Button11: TButton;
    Edit19: TEdit;
    Button12: TButton;
    Label22: TLabel;
    SpeedButton7: TSpeedButton;
    Button13: TButton;
    TabSheet6: TTabSheet;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    ComboBox4: TComboBox;
    Edit24: TEdit;
    Edit25: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Panel6: TPanel;
    Image3: TImage;
    Button14: TButton;
    Button15: TButton;
    DBGrid5: TDBGrid;
    Button16: TButton;
    Button17: TButton;
    Label30: TLabel;
    Edit26: TEdit;
    Button18: TButton;
    SpeedButton8: TSpeedButton;
    XPMenu1: TXPMenu;
    Timer1: TTimer;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    TabSheet7: TTabSheet;
    ComboBox5: TComboBox;
    Edit27: TEdit;
    DBGrid6: TDBGrid;
    ADOQuery_1: TADOQuery;
    DataSource1: TDataSource;
    SpeedButton9: TSpeedButton;
    Label31: TLabel;
    TabSheet8: TTabSheet;
    Label32: TLabel;
    ComboBox6: TComboBox;
    Edit28: TEdit;
    DBGrid7: TDBGrid;
    SpeedButton10: TSpeedButton;
    TabSheet9: TTabSheet;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit29: TEdit;
    ComboBox7: TComboBox;
    Edit30: TEdit;
    Edit31: TEdit;
    DBGrid8: TDBGrid;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    TabSheet10: TTabSheet;
    DBGrid9: TDBGrid;
    Panel7: TPanel;
    Panel8: TPanel;
    Edit32: TEdit;
    Edit33: TEdit;
    Label33: TLabel;
    Label34: TLabel;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Edit34: TEdit;
    Edit35: TEdit;
    Label35: TLabel;
    Label36: TLabel;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Label37: TLabel;
    Label38: TLabel;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    TabSheet11: TTabSheet;
    Edit36: TEdit;
    Edit37: TEdit;
    ComboBox8: TComboBox;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Button31: TButton;
    Edit38: TEdit;
    Label42: TLabel;
    SpeedButton14: TSpeedButton;
    DBGrid10: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    Memo1: TMemo;
    Label43: TLabel;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    N39: TMenuItem;
    TabSheet12: TTabSheet;
    CheckBox2: TCheckBox;
    GroupBox2: TGroupBox;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    Button32: TButton;
    Button33: TButton;
    Edit39: TEdit;
    CheckBox3: TCheckBox;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    procedure Panel2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Panel3UnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    procedure Button9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure Button13Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Edit27Change(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Edit28Change(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button26Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure DBGrid9CellClick(Column: TColumn);
    procedure N36Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure ComboBox8KeyPress(Sender: TObject; var Key: Char);
    procedure N34Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4Change(Sender: TObject);
    procedure Edit37Change(Sender: TObject);
    procedure Edit37KeyPress(Sender: TObject; var Key: Char);
    procedure Edit32KeyPress(Sender: TObject; var Key: Char);
    procedure Edit32Change(Sender: TObject);
    procedure Edit34Change(Sender: TObject);
    procedure Edit34KeyPress(Sender: TObject; var Key: Char);
    procedure Edit29KeyPress(Sender: TObject; var Key: Char);
    procedure Edit29Change(Sender: TObject);
    procedure ComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit20KeyPress(Sender: TObject; var Key: Char);
    procedure Edit20Change(Sender: TObject);
    procedure Edit23Change(Sender: TObject);
    procedure Edit23KeyPress(Sender: TObject; var Key: Char);
    procedure Edit22KeyPress(Sender: TObject; var Key: Char);
    procedure Edit22Change(Sender: TObject);
    procedure Edit26KeyPress(Sender: TObject; var Key: Char);
    procedure Edit26Change(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit16KeyPress(Sender: TObject; var Key: Char);
    procedure Edit16Change(Sender: TObject);
    procedure Edit15Change(Sender: TObject);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit19KeyPress(Sender: TObject; var Key: Char);
    procedure Edit19Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10Change(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12Change(Sender: TObject);
    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure N27Click(Sender: TObject);