unit1.pas

健身会馆会员管理,实现了部分财务管理和,报表统计功能

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Menus, GIFImage, ComCtrls,
  DB, ADODB, Grids, DBGrids, Mask, DBCtrls, ImgList, ToolWin, TeeProcs,
  TeEngine, Chart,ShellAPI,ClipBrd,ActnList,AES, Series, DbChart, OleCtrls,
  Chartfx3,FileCtrl;


const WM_NID=WM_USER+1000;
type
  TMainForm = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Image2: TImage;
    Image3: TImage;
    Label2: TLabel;
    Bevel2: TBevel;
    Image4: TImage;
    Label3: TLabel;
    Bevel3: TBevel;
    Image5: TImage;
    Label4: TLabel;
    Bevel4: TBevel;
    Label5: TLabel;
    Image6: TImage;
    Bevel5: TBevel;
    Label6: TLabel;
    Image7: TImage;
    Bevel6: TBevel;
    Label7: TLabel;
    Image8: TImage;
    Bevel7: TBevel;
    Label8: TLabel;
    Image9: TImage;
    Bevel8: TBevel;
    Label9: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PageControl3: TPageControl;
    TabSheet5: TTabSheet;
    Image10: TImage;
    Label10: TLabel;
    Bevel9: TBevel;
    Panel1: TPanel;
    Label11: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Panel3: TPanel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Panel4: TPanel;
    Label28: TLabel;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBMemo1: TDBMemo;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADODataSet1: TADODataSet;
    DataSource3: TDataSource;
    BitBtn5: TBitBtn;
    ImageList1: TImageList;
    PageControl7: TPageControl;
    TabSheet16: TTabSheet;
    TabSheet17: TTabSheet;
    Panel6: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label29: TLabel;
    Label30: TLabel;
    Button3: TButton;
    DBGrid2: TDBGrid;
    DBGrid4: TDBGrid;
    Panel9: TPanel;
    Label31: TLabel;
    Label35: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Button5: TButton;
    StatusBar1: TStatusBar;
    TabSheet18: TTabSheet;
    TabSheet19: TTabSheet;
    Panel10: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Label36: TLabel;
    Panel14: TPanel;
    Label37: TLabel;
    Edit2: TEdit;
    Button6: TButton;
    Panel15: TPanel;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    DBGrid5: TDBGrid;
    Panel16: TPanel;
    Label38: TLabel;
    Edit4: TEdit;
    Button7: TButton;
    Panel17: TPanel;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    PageControl4: TPageControl;
    TabSheet7: TTabSheet;
    PageControl6: TPageControl;
    TabSheet2: TTabSheet;
    Panel5: TPanel;
    Label39: TLabel;
    Label40: TLabel;
    ComboBox1: TComboBox;
    ComboBox3: TComboBox;
    BitBtn20: TBitBtn;
    Panel19: TPanel;
    DBGrid7: TDBGrid;
    TabSheet15: TTabSheet;
    Panel18: TPanel;
    Label41: TLabel;
    ComboBox4: TComboBox;
    BitBtn25: TBitBtn;
    TabSheet8: TTabSheet;
    PageControl8: TPageControl;
    TabSheet6: TTabSheet;
    DBGrid8: TDBGrid;
    Panel20: TPanel;
    Label42: TLabel;
    BitBtn26: TBitBtn;
    Panel21: TPanel;
    Edit5: TEdit;
    TabSheet20: TTabSheet;
    Panel22: TPanel;
    Label43: TLabel;
    ComboBox5: TComboBox;
    BitBtn31: TBitBtn;
    Chart2: TChart;
    TabSheet9: TTabSheet;
    PageControl9: TPageControl;
    TabSheet21: TTabSheet;
    DBGrid9: TDBGrid;
    Panel23: TPanel;
    Panel24: TPanel;
    TabSheet22: TTabSheet;
    Panel25: TPanel;
    Label45: TLabel;
    ComboBox6: TComboBox;
    BitBtn37: TBitBtn;
    Chart3: TChart;
    TabSheet11: TTabSheet;
    PageControl10: TPageControl;
    TabSheet10: TTabSheet;
    TabSheet24: TTabSheet;
    Panel26: TPanel;
    Panel27: TPanel;
    Label46: TLabel;
    DateTimePicker5: TDateTimePicker;
    Label47: TLabel;
    DateTimePicker6: TDateTimePicker;
    DBGrid10: TDBGrid;
    TabSheet23: TTabSheet;
    Panel30: TPanel;
    DBGrid12: TDBGrid;
    TabSheet27: TTabSheet;
    Panel36: TPanel;
    Label59: TLabel;
    Label60: TLabel;
    Panel37: TPanel;
    DateTimePicker11: TDateTimePicker;
    DateTimePicker12: TDateTimePicker;
    DBGrid16: TDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Panel38: TPanel;
    DBGrid17: TDBGrid;
    ADODataSet2: TADODataSet;
    DataSource6: TDataSource;
    Label61: TLabel;
    DBEdit16: TDBEdit;
    ADOTable1: TADOTable;
    DataSource7: TDataSource;
    Label68: TLabel;
    DBEdit19: TDBEdit;
    ADOTable1id: TAutoIncField;
    ADOTable1DSDesigner: TFloatField;
    ADOTable1DSDesigner2: TFloatField;
    ADOTable2: TADOTable;
    ADOTable2id: TAutoIncField;
    ADOTable2DSDesigner: TIntegerField;
    ADOTable2DSDesigner2: TIntegerField;
    ADOTable2DSDesigner3: TIntegerField;
    DataSource8: TDataSource;
    PageControl12: TPageControl;
    TabSheet28: TTabSheet;
    TabSheet29: TTabSheet;
    Splitter1: TSplitter;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    TreeView1: TTreeView;
    ImageList2: TImageList;
    ADOQuery0: TADOQuery;
    DBEdit23: TDBEdit;
    DataSource9: TDataSource;
    Label74: TLabel;
    Label75: TLabel;
    DBEdit24: TDBEdit;
    ToolbarImages: TImageList;
    StandardToolBar: TToolBar;
    ToolButton3: TToolButton;
    OpenButton: TToolButton;
    SaveButton: TToolButton;
    PrintButton: TToolButton;
    ToolButton5: TToolButton;
    CutButton: TToolButton;
    CopyButton: TToolButton;
    PasteButton: TToolButton;
    UndoButton: TToolButton;
    ToolButton10: TToolButton;
    FontName: TComboBox;
    ToolButton11: TToolButton;
    FontSize: TEdit;
    UpDown1: TUpDown;
    ToolButton4: TToolButton;
    BoldButton: TToolButton;
    ItalicButton: TToolButton;
    UnderlineButton: TToolButton;
    ToolButton16: TToolButton;
    LeftAlign: TToolButton;
    CenterAlign: TToolButton;
    RightAlign: TToolButton;
    ToolButton20: TToolButton;
    BulletsButton: TToolButton;
    Editor: TDBRichEdit;
    ToolButton6: TToolButton;
    PrintDialog: TPrintDialog;
    OpenDialog: TOpenDialog;
    StatusBar: TStatusBar;
    Ruler: TPanel;
    FirstInd: TLabel;
    LeftInd: TLabel;
    RulerLine: TBevel;
    RightInd: TLabel;
    Bevel10: TBevel;
    Panel11: TPanel;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    BitBtn6: TBitBtn;
    DateTimePicker13: TDateTimePicker;
    DateTimePicker14: TDateTimePicker;
    Label76: TLabel;
    Edit8: TEdit;
    ADOQuery5: TADOQuery;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Label77: TLabel;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    Label78: TLabel;
    Chart1: TChart;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Series1: TBarSeries;
    Series2: TPieSeries;
    Label79: TLabel;
    ComboBox7: TComboBox;
    BitBtn28: TBitBtn;
    BitBtn27: TBitBtn;
    DataSource0: TDataSource;
    DBGrid6: TDBGrid;
    DateTimePicker15: TDateTimePicker;
    Label80: TLabel;
    DateTimePicker16: TDateTimePicker;
    Label81: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Series3: TBarSeries;
    Series4: TPieSeries;
    Label44: TLabel;
    Edit6: TEdit;
    Label82: TLabel;
    DateTimePicker17: TDateTimePicker;
    Label83: TLabel;
    DateTimePicker18: TDateTimePicker;
    BitBtn24: TBitBtn;
    BitBtn30: TBitBtn;
    BitBtn32: TBitBtn;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Series5: TBarSeries;
    Series6: TPieSeries;
    TabSheet31: TTabSheet;
    TabSheet32: TTabSheet;
    shourusql: TEdit;
    zhichusql: TEdit;
    srqk: TEdit;
    zcqk: TEdit;
    BitBtn42: TBitBtn;
    BitBtn38: TBitBtn;
    BitBtn39: TBitBtn;
    BitBtn40: TBitBtn;
    Label50: TLabel;
    DateTimePicker9: TDateTimePicker;
    Label51: TLabel;
    DateTimePicker10: TDateTimePicker;
    BitBtn33: TBitBtn;
    BitBtn34: TBitBtn;
    BitBtn35: TBitBtn;
    BitBtn36: TBitBtn;
    Panel29: TPanel;
    Panel28: TPanel;
    Label48: TLabel;
    ComboBox8: TComboBox;
    BitBtn41: TBitBtn;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Chart4: TChart;
    BarSeries1: TBarSeries;
    PieSeries1: TPieSeries;
    Panel31: TPanel;
    Label49: TLabel;
    ComboBox9: TComboBox;
    BitBtn43: TBitBtn;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Chart5: TChart;
    BarSeries2: TBarSeries;
    PieSeries2: TPieSeries;
    Panel40: TPanel;
    Label84: TLabel;
    ComboBox10: TComboBox;
    BitBtn44: TBitBtn;
    RadioButton11: TRadioButton;
    Chart6: TChart;
    Label85: TLabel;
    DateTimePicker7: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Label86: TLabel;
    BitBtn46: TBitBtn;
    BitBtn47: TBitBtn;
    BitBtn48: TBitBtn;
    RadioButton13: TRadioButton;
    cwsql: TEdit;
    Series7: TBarSeries;
    Series8: TBarSeries;
    Series9: TPieSeries;
    Series10: TPieSeries;
    Chart7: TChart;
    Series11: TBarSeries;
    Splitter2: TSplitter;
    Series12: TPieSeries;
    dengluxinxi: TEdit;
    BitBtn62: TBitBtn;
    BitBtn63: TBitBtn;
    PageControl5: TPageControl;
    TabSheet12: TTabSheet;
    Panel32: TPanel;
    GroupBox2: TGroupBox;
    DBGrid13: TDBGrid;
    Panel39: TPanel;
    TabSheet14: TTabSheet;
    Panel35: TPanel;
    PageControl11: TPageControl;
    TabSheet25: TTabSheet;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;