mainform.pas

本图书管理系统一sql server为数据库开发平台

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, AppEvnts, StdCtrls, Grids, DBGrids, ComCtrls, ToolWin,cardkind,
  ExtCtrls,myclass,UpDownSet,Analyse, BookClass,BookInfo,SetServer,ADODB, Buttons,
  backup,DB,ReaderManage, BookIn,restore,shellapi,wait,login,Worker,IniFiles,
  ImgList,inputbox, customstaticText1, Mask,About, ActnMan, ActnColorMaps,
  XPStyleActnCtrls, ActnList, ActnCtrls, ActnMenus;
type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    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;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    StaticText1: TStaticText;
    Edit1: TEdit;
    StaticText3: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    StaticText11: TStaticText;
    StaticText10: TStaticText;
    Edit7: TEdit;
    StaticText2: TStaticText;
    StaticText4: TStaticText;
    Memo1: TMemo;
    ApplicationEvents1: TApplicationEvents;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Splitter1: TSplitter;
    Panel3: TPanel;
    GroupBox3: TGroupBox;
    Label12: TLabel;
    StaticText20: TStaticText;
    Edit13: TEdit;
    StaticText21: TStaticText;
    StaticText25: TStaticText;
    Edit14: TEdit;
    Edit15: TEdit;
    StaticText26: TStaticText;
    StaticText27: TStaticText;
    StaticText28: TStaticText;
    StaticText29: TStaticText;
    Memo3: TMemo;
    GroupBox7: TGroupBox;
    Panel5: TPanel;
    GroupBox5: TGroupBox;
    StaticText9: TStaticText;
    Edit2: TEdit;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    Memo2: TMemo;
    GroupBox6: TGroupBox;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label9: TLabel;
    Label13: TLabel;
    StaticText19: TStaticText;
    Edit11: TEdit;
    StaticText23: TStaticText;
    Edit12: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    CheckBox1: TCheckBox;
    GroupBox2: TGroupBox;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    GroupBox4: TGroupBox;
    DBGrid4: TDBGrid;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Edit16: TEdit;
    Edit17: TEdit;
    ComboBox1: TComboBox;
    Edit18: TEdit;
    RadioButton3: TRadioButton;
    RadioButton6: TRadioButton;
    Edit19: TEdit;
    Edit20: TEdit;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    Edit21: TEdit;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Label15: TLabel;
    RadioButton13: TRadioButton;
    Edit22: TEdit;
    DateTimePicker2: TDateTimePicker;
    Label14: TLabel;
    DateTimePicker1: TDateTimePicker;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioButton20: TRadioButton;
    CheckBox6: TCheckBox;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    RadioButton16: TRadioButton;
    Edit26: TEdit;
    RadioButton17: TRadioButton;
    Edit27: TEdit;
    CheckBox5: TCheckBox;
    DateTimePicker6: TDateTimePicker;
    Label1: TLabel;
    DateTimePicker7: TDateTimePicker;
    RadioButton18: TRadioButton;
    Edit28: TEdit;
    N42: TMenuItem;
    ImageList1: TImageList;
    server1: TMenuItem;
    N43: TMenuItem;
    statictext22: Tstructormy;
    statictext24: Tstructormy;
    Statictext30: Tstructormy;
    statictext32: Tstructormy;
    statictext31: Tstructormy;
    ToolBar1: TToolBar;
    RadioButton19: TRadioButton;
    ComboBox2: TComboBox;
    Panel4: TPanel;
    RadioButton7: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    CheckBox4: TCheckBox;
    DateTimePicker5: TDateTimePicker;
    statictext33: Tstructormy;
    Bevel1: TBevel;
    Edit29: TEdit;
    Edit31: TEdit;
    RadioButton21: TRadioButton;
    RadioButton22: TRadioButton;
    RadioButton23: TRadioButton;
    ComboBox3: TComboBox;
    MaskEdit1: TMaskEdit;
    Label10: TLabel;
    MaskEdit2: TMaskEdit;
    Label11: TLabel;
    UpDown1: TUpDown;
    procedure DrawBtn(var btinfo:buttonInfo);
    procedure WMNCLBUTTONDown(var msg:TWMNCLBUTTonDown);message WM_NCLBUTTONDown;
    procedure WMNCLBUTTONUP(var MSG:TWMNCLBUTTONUp);message WM_NCLBUTTONup;
    procedure WMPAINT(var msg:TWMPAINT);message WM_PAINT;
    procedure WMdbclick(var msg:TMessage);message WM_NCLBUTTONDBLCLK;
    procedure WMNCPAINT(var msg:TWMNCPAINT);message WM_NCPAINT;
    procedure sizing(var msg:Tmessage);message WM_SIZing;
    procedure Active(var msg:Tmessage);message WM_ACTIVATE;
    procedure NCmouseMove(var msg:Tmessage);message WM_NCMOUSEMOVE;
    procedure WMQUERYOPEN(var msg:TMessage);message WM_QUERYOPEN;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure PageControl1DrawTab(Control: TCustomTabControl;
      TabIndex: Integer; const Rect: TRect; Active: Boolean);
    procedure ToolBar1AdvancedCustomDraw(Sender: TToolBar;
      const ARect: TRect; Stage: TCustomDrawStage;
      var DefaultDraw: Boolean);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure StaticText10MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StaticText10MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Edit6Change(Sender: TObject);
    procedure SetCount;
   function Codecreate(var query:TADOQUERY;const codeclass,table:string):string;
    procedure StaticText11Click(Sender: TObject);
    procedure resetEdit;
    procedure ApplicationEvents1ShortCut(var Msg: TWMKey;
      var Handled: Boolean);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure StaticText10Click(Sender: TObject);
    procedure dropselltemptable;
    procedure droplendtemptable;
    procedure dropbacktemptable;
    procedure TestPower;
    procedure tableopen(var query:TADOQuery;tablename:string);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure StaticText16Click(Sender: TObject);
    procedure StaticText15Click(Sender: TObject);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Memo2KeyPress(Sender: TObject; var Key: Char);
    procedure Memo3KeyPress(Sender: TObject; var Key: Char);
    procedure StaticText26Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure CheckBox1Click(Sender: TObject);
    procedure StaticText27Click(Sender: TObject);
    procedure StaticText22Click(Sender: TObject);
    procedure Edit16Change(Sender: TObject);
    procedure Edit17Change(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit18Change(Sender: TObject);
    procedure Edit19Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Edit20Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Edit22Change(Sender: TObject);
    procedure Edit21Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Edit23Change(Sender: TObject);
    procedure DateTimePicker5Change(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure StaticText1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit26Change(Sender: TObject);
    procedure Edit28Change(Sender: TObject);
    procedure Edit27Change(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure showpage(show:boolean);
    function Dateadd(Vardate:Tdatetime;varmonth:integer):Tdatetime;
    procedure N5AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure server1Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure RadioButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton19MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ComboBox2Change(Sender: TObject);
    procedure RadioButton3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton6MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton8MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit18KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton9MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton16MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton18MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton17MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton10MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton11MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton13MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DateTimePicker6Change(Sender: TObject);
    procedure RadioButton7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton12MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton15MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton14MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit24Change(Sender: TObject);
    procedure Edit25Change(Sender: TObject);
    procedure RadioButton20MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton21MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton22MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton23MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N37Click(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure Edit29Change(Sender: TObject);
    procedure Edit31Change(Sender: TObject);
    procedure ComboBox3Select(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);