numbersalenew.~pas

彩票销售系统

    BitBtn53: TBitBtn;
    Label100: TLabel;
    Panel5: TPanel;
    Label53: TLabel;
    Shape52: TShape;
    Shape59: TShape;
    Label85: TLabel;
    Label54: TLabel;
    Label86: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    BitBtn52: TBitBtn;
    BitBtn51: TBitBtn;
    BitBtn50: TBitBtn;
    BitBtn48: TBitBtn;
    BitBtn47: TBitBtn;
    BitBtn35: TBitBtn;
    BitBtn34: TBitBtn;
    Shape53: TShape;
    Shape55: TShape;
    Shape61: TShape;
    Shape63: TShape;
    Shape65: TShape;
    Shape60: TShape;
    Shape66: TShape;
    Shape67: TShape;
    Shape62: TShape;
    Shape68: TShape;
    Shape69: TShape;
    Shape57: TShape;
    Shape58: TShape;
    Shape54: TShape;
    Shape56: TShape;
    Shape70: TShape;
    Label56: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label165: TLabel;
    Label181: TLabel;
    Label184: TLabel;
    Label185: TLabel;
    Label186: TLabel;
    Label187: TLabel;
    Label188: TLabel;
    Label189: TLabel;
    Label190: TLabel;
    Label191: TLabel;
    Label192: TLabel;
    Label193: TLabel;
    Label194: TLabel;
    Label195: TLabel;
    Label196: TLabel;
    Label197: TLabel;
    Label198: TLabel;
    Label199: TLabel;
    Label200: TLabel;
    Label201: TLabel;
    Label202: TLabel;
    Label203: TLabel;
    Label204: TLabel;
    Label205: TLabel;
    Label206: TLabel;
    Label207: TLabel;
    Label208: TLabel;
    OneSixListSp: TADOStoredProc;
    twoThere: TDataSource;
    twothere_sp: TADOStoredProc;
    twothere_spFSalePeriod: TStringField;
    twothere_spFClientId: TIntegerField;
    twothere_spFTranType: TIntegerField;
    twothere_spFWorkType: TStringField;
    twothere_spFAminalNo: TStringField;
    twothere_spFPrice: TBCDField;
    twothere_spFMoney: TBCDField;
    twothere_spFTranName: TStringField;
    BitBtn54: TBitBtn;
    BitBtn55: TBitBtn;
    Label209: TLabel;
    BitBtn56: TBitBtn;
    Panel6: TPanel;
    save_mainphoto: TADOStoredProc;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N2: TMenuItem;
    Label55: TLabel;
    Label216: TLabel;
    Label217: TLabel;
    Label218: TLabel;
    Label219: TLabel;
    Label220: TLabel;
    Timer1: TTimer;
    BitBtn57: TBitBtn;
    Edit11: TEdit;
    DangerList: TADOStoredProc;
    BitBtn58: TBitBtn;
    GroupBox5: TGroupBox;
    Label210: TLabel;
    Label211: TLabel;
    Label212: TLabel;
    Label213: TLabel;
    Label214: TLabel;
    Label215: TLabel;
    Label221: TLabel;
    Label222: TLabel;
    Label223: TLabel;
    Label224: TLabel;
    Label225: TLabel;
    Label226: TLabel;
    Label227: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit5: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit36: TEdit;
    Edit37: TEdit;
    Edit38: TEdit;
    Edit39: TEdit;
    Edit40: TEdit;
    Edit41: TEdit;
    Shape64: TShape;
    Shape71: TShape;
    Shape72: TShape;
    Shape73: TShape;
    Shape74: TShape;
    Shape75: TShape;
    Shape76: TShape;
    Shape77: TShape;
    Shape78: TShape;
    Edit42: TEdit;
    Edit43: TEdit;
    Edit44: TEdit;
    Edit45: TEdit;
    Edit46: TEdit;
    Edit47: TEdit;
    Shape79: TShape;
    Shape80: TShape;
    Shape81: TShape;
    Shape82: TShape;
    Shape83: TShape;
    Shape84: TShape;
    Shape85: TShape;
    BitBtn59: TBitBtn;
    BitBtn60: TBitBtn;
    BitBtn61: TBitBtn;
    BitBtn62: TBitBtn;
    BitBtn63: TBitBtn;
    BitBtn64: TBitBtn;
    BitBtn65: TBitBtn;
    BitBtn66: TBitBtn;
    BitBtn67: TBitBtn;
    BitBtn68: TBitBtn;
    BitBtn69: TBitBtn;
    BitBtn70: TBitBtn;
    PopupMenu2: TPopupMenu;
    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;
    N161: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    BitBtn41: TBitBtn;
    BitBtn42: TBitBtn;
    OutMoneySave: TADOQuery;
    MainSub: TADOStoredProc;
    BitBtn43: TBitBtn;
    Shape51: TShape;
    Shape86: TShape;
    Shape87: TShape;
    Shape88: TShape;
    Shape89: TShape;
    Shape90: TShape;
    Shape91: TShape;
    Shape92: TShape;
    Shape93: TShape;
    Shape94: TShape;
    Shape95: TShape;
    Shape96: TShape;
    Shape97: TShape;
    Shape98: TShape;
    Shape99: TShape;
    Shape100: TShape;
    Shape47: TShape;
    Shape101: TShape;
    Shape102: TShape;
    BitBtn31: TBitBtn;
    ClientName_Q: TADOQuery;
    CheckBox1: TCheckBox;
    odds_sp: TADOStoredProc;
    OutMoneySp: TADOStoredProc;
    Shape34: TShape;
    dangerdatelistsp: TADOStoredProc;
    dangerdatelistspNumberNO: TIntegerField;
    dangerdatelistspNumberMoney: TBCDField;
    dangerdatelistspNumberRatio: TBCDField;
    dangerdatelistspOutMoney: TBCDField;
    dangerdatelistspInMoney: TBCDField;
    dangerdatelistspDangerMoney: TBCDField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ClientButton1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure ClientButton2Click(Sender: TObject);
    procedure ClientButton3Click(Sender: TObject);
    procedure ClientButton4Click(Sender: TObject);
    procedure ClientButton5Click(Sender: TObject);
    procedure ClientButton20Click(Sender: TObject);
    procedure ClientButton19Click(Sender: TObject);
    procedure ClientButton18Click(Sender: TObject);