unit1.pas

此程序是应朋友的 老婆单位的要求写的

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, ActnList, XPStyleActnCtrls, ImgList,
  ActnMenus, ComCtrls, StdCtrls, DB, ADODB, ExtCtrls, Mask, DBCtrls, Grids,
  DBGrids, QuickRpt, QRCtrls;

type
  TForm1 = class(TForm)
    ActionManager1: TActionManager;
    new: TAction;
    project: TAction;
    delete: TAction;
    bakup: TAction;
    exit1: TAction;
    ActionToolBar1: TActionToolBar;
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    ADO_NEW: TADOQuery;
    Button1: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Label3: TLabel;
    Panel2: TPanel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    LabeledEdit4: TLabeledEdit;
    ComboBox2: TComboBox;
    Label5: TLabel;
    LabeledEdit5: TLabeledEdit;
    ComboBox3: TComboBox;
    Label6: TLabel;
    LabeledEdit6: TLabeledEdit;
    ComboBox4: TComboBox;
    Label7: TLabel;
    LabeledEdit7: TLabeledEdit;
    ComboBox5: TComboBox;
    Label8: TLabel;
    LabeledEdit8: TLabeledEdit;
    ComboBox6: TComboBox;
    Label9: TLabel;
    LabeledEdit9: TLabeledEdit;
    ComboBox7: TComboBox;
    Label10: TLabel;
    LabeledEdit10: TLabeledEdit;
    LabeledEdit11: TLabeledEdit;
    StaticText1: TStaticText;
    LabeledEdit12: TLabeledEdit;
    LabeledEdit13: TLabeledEdit;
    StaticText2: TStaticText;
    LabeledEdit14: TLabeledEdit;
    LabeledEdit15: TLabeledEdit;
    LabeledEdit16: TLabeledEdit;
    LabeledEdit17: TLabeledEdit;
    StaticText3: TStaticText;
    LabeledEdit18: TLabeledEdit;
    StaticText4: TStaticText;
    Edit3: TEdit;
    StaticText5: TStaticText;
    Panel3: TPanel;
    LabeledEdit19: TLabeledEdit;
    LabeledEdit20: TLabeledEdit;
    LabeledEdit21: TLabeledEdit;
    LabeledEdit22: TLabeledEdit;
    LabeledEdit23: TLabeledEdit;
    LabeledEdit24: TLabeledEdit;
    LabeledEdit25: TLabeledEdit;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ComboBox8: TComboBox;
    Panel4: TPanel;
    LabeledEdit26: TLabeledEdit;
    LabeledEdit27: TLabeledEdit;
    LabeledEdit28: TLabeledEdit;
    LabeledEdit29: TLabeledEdit;
    LabeledEdit30: TLabeledEdit;
    LabeledEdit31: TLabeledEdit;
    ComboBox9: TComboBox;
    Panel5: TPanel;
    LabeledEdit32: TLabeledEdit;
    LabeledEdit33: TLabeledEdit;
    LabeledEdit34: TLabeledEdit;
    LabeledEdit35: TLabeledEdit;
    ComboBox10: TComboBox;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    LabeledEdit36: TLabeledEdit;
    LabeledEdit37: TLabeledEdit;
    LabeledEdit38: TLabeledEdit;
    LabeledEdit39: TLabeledEdit;
    LabeledEdit40: TLabeledEdit;
    LabeledEdit41: TLabeledEdit;
    LabeledEdit42: TLabeledEdit;
    LabeledEdit43: TLabeledEdit;
    LabeledEdit44: TLabeledEdit;
    LabeledEdit45: TLabeledEdit;
    LabeledEdit46: TLabeledEdit;
    ComboBox11: TComboBox;
    LabeledEdit47: TLabeledEdit;
    LabeledEdit48: TLabeledEdit;
    LabeledEdit49: TLabeledEdit;
    LabeledEdit50: TLabeledEdit;
    LabeledEdit51: TLabeledEdit;
    LabeledEdit52: TLabeledEdit;
    ComboBox12: TComboBox;
    LabeledEdit53: TLabeledEdit;
    LabeledEdit54: TLabeledEdit;
    LabeledEdit55: TLabeledEdit;
    ComboBox13: TComboBox;
    LabeledEdit56: TLabeledEdit;
    LabeledEdit57: TLabeledEdit;
    LabeledEdit58: TLabeledEdit;
    ComboBox14: TComboBox;
    LabeledEdit59: TLabeledEdit;
    LabeledEdit60: TLabeledEdit;
    LabeledEdit61: TLabeledEdit;
    LabeledEdit62: TLabeledEdit;
    LabeledEdit63: TLabeledEdit;
    LabeledEdit64: TLabeledEdit;
    StaticText8: TStaticText;
    LabeledEdit65: TLabeledEdit;
    StaticText9: TStaticText;
    LabeledEdit66: TLabeledEdit;
    LabeledEdit67: TLabeledEdit;
    LabeledEdit68: TLabeledEdit;
    ComboBox15: TComboBox;
    LabeledEdit69: TLabeledEdit;
    ComboBox16: TComboBox;
    LabeledEdit70: TLabeledEdit;
    new_gcmc: TAction;
    new_gczgk: TAction;
    new_ztsgdw: TAction;
    new_dkdw: TAction;
    new_wwktdw: TAction;
    new_jzgc: TAction;
    new_zjjcdw: TAction;
    new_lhjgc: TAction;
    new_sjdw: TAction;
    new_jldw: TAction;
    new_jfdw: TAction;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    Edit4: TEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    SJDW: TAction;
    JFDW: TAction;
    JLDW: TAction;
    LHJDW: TAction;
    JZJCDW: TAction;
    JZGCDW: TAction;
    WWKTDW: TAction;
    DKDW: TAction;
    ZTSGDW: TAction;
    GCZGK: TAction;
    Button3: TButton;
    GCMC: TAction;
    Edit5: TEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    StaticText23: TStaticText;
    StaticText24: TStaticText;
    StaticText25: TStaticText;
    StaticText26: TStaticText;
    DBComboBox2: TDBComboBox;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    StaticText27: TStaticText;
    StaticText28: TStaticText;
    StaticText29: TStaticText;
    StaticText30: TStaticText;
    StaticText31: TStaticText;
    StaticText32: TStaticText;
    StaticText33: TStaticText;
    StaticText34: TStaticText;
    DBComboBox3: TDBComboBox;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBComboBox4: TDBComboBox;
    StaticText35: TStaticText;
    StaticText36: TStaticText;
    StaticText37: TStaticText;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBComboBox5: TDBComboBox;
    StaticText38: TStaticText;
    StaticText39: TStaticText;
    StaticText40: TStaticText;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBComboBox6: TDBComboBox;
    DBComboBox7: TDBComboBox;
    StaticText41: TStaticText;
    StaticText42: TStaticText;
    StaticText43: TStaticText;
    StaticText44: TStaticText;
    StaticText45: TStaticText;
    StaticText46: TStaticText;
    StaticText47: TStaticText;
    StaticText48: TStaticText;
    StaticText49: TStaticText;
    StaticText50: TStaticText;
    StaticText51: TStaticText;
    StaticText52: TStaticText;
    StaticText53: TStaticText;
    StaticText54: TStaticText;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBComboBox8: TDBComboBox;
    StaticText55: TStaticText;
    StaticText56: TStaticText;
    StaticText57: TStaticText;
    StaticText58: TStaticText;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    DBEdit50: TDBEdit;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBComboBox9: TDBComboBox;
    StaticText59: TStaticText;
    StaticText60: TStaticText;
    StaticText61: TStaticText;
    StaticText62: TStaticText;
    StaticText63: TStaticText;
    StaticText64: TStaticText;
    DBEdit53: TDBEdit;
    DBEdit54: TDBEdit;
    DBEdit55: TDBEdit;
    DBComboBox10: TDBComboBox;
    DBComboBox11: TDBComboBox;
    DBComboBox12: TDBComboBox;
    DBComboBox13: TDBComboBox;
    DBComboBox14: TDBComboBox;
    DBComboBox15: TDBComboBox;
    DBComboBox16: TDBComboBox;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    DBEdit62: TDBEdit;
    DBEdit63: TDBEdit;
    DBEdit64: TDBEdit;
    DBEdit65: TDBEdit;
    DBEdit66: TDBEdit;
    DBEdit67: TDBEdit;
    DBEdit68: TDBEdit;
    DBEdit69: TDBEdit;
    DBEdit70: TDBEdit;
    DBEdit71: TDBEdit;
    DBEdit72: TDBEdit;
    DBEdit73: TDBEdit;
    DBEdit74: TDBEdit;
    DBEdit75: TDBEdit;
    DBEdit76: TDBEdit;
    Button4: TButton;
    Panel12: TPanel;
    DBGrid1: TDBGrid;
    Button5: TButton;
    Button6: TButton;
    ADOT_project: TADOTable;
    DataSource1: TDataSource;
    Button7: TButton;
    query: TAction;
    TabSheet5: TTabSheet;
    Panel13: TPanel;
    DBGrid2: TDBGrid;
    Button8: TButton;
    QuickRep1: TQuickRep;
    ADO_QUERY: TADOQuery;
    DS_QUERY: TDataSource;
    Button9: TButton;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRBand2: TQRBand;
    QRShape22: TQRShape;
    QRShape7: TQRShape;
    QRShape6: TQRShape;
    QRShape5: TQRShape;
    QRShape4: TQRShape;
    QRShape3: TQRShape;
    QRShape2: TQRShape;
    QRShape1: TQRShape;
    QRDBText1: TQRDBText;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRDBText2: TQRDBText;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRDBText3: TQRDBText;
    QRLabel6: TQRLabel;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRLabel7: TQRLabel;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRLabel8: TQRLabel;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRLabel9: TQRLabel;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRLabel10: TQRLabel;
    QRDBText12: TQRDBText;
    QRLabel11: TQRLabel;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRDBText18: TQRDBText;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRLabel20: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    QRShape10: TQRShape;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRShape11: TQRShape;
    QRShape12: TQRShape;
    QRShape13: TQRShape;
    QRShape14: TQRShape;
    QRLabel17: TQRLabel;
    QRLabel21: TQRLabel;
    QRDBText22: TQRDBText;
    QRDBText25: TQRDBText;
    QRDBText28: TQRDBText;
    QRLabel18: TQRLabel;
    QRLabel22: TQRLabel;
    QRDBText19: TQRDBText;