numbersalenew.~pas

彩票销售系统

    procedure ClientButton17Click(Sender: TObject);
    procedure ClientButton16Click(Sender: TObject);
    procedure ClientButton15Click(Sender: TObject);
    procedure ClientButton14Click(Sender: TObject);
    procedure ClientButton13Click(Sender: TObject);
    procedure ClientButton12Click(Sender: TObject);
    procedure ClientButton11Click(Sender: TObject);
    procedure ClientButton10Click(Sender: TObject);
    procedure ClientButton9Click(Sender: TObject);
    procedure ClientButton8Click(Sender: TObject);
    procedure ClientButton7Click(Sender: TObject);
    procedure ClientButton6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure BitBtn27Click(Sender: TObject);
    procedure BitBtn28Click(Sender: TObject);
    procedure BitBtn29Click(Sender: TObject);
    procedure BitBtn30Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn49Click(Sender: TObject);
    procedure BitBtn34Click(Sender: TObject);
    procedure BitBtn35Click(Sender: TObject);
    procedure BitBtn47Click(Sender: TObject);
    procedure BitBtn48Click(Sender: TObject);
    procedure BitBtn50Click(Sender: TObject);
    procedure BitBtn51Click(Sender: TObject);
    procedure BitBtn52Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn53Click(Sender: TObject);
    procedure BitBtn54Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn56Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn58Click(Sender: TObject);
    procedure BitBtn55Click(Sender: TObject);
    procedure BitBtn59Click(Sender: TObject);
    procedure BitBtn60Click(Sender: TObject);
    procedure BitBtn62Click(Sender: TObject);
    procedure BitBtn61Click(Sender: TObject);
    procedure BitBtn63Click(Sender: TObject);
    procedure BitBtn64Click(Sender: TObject);
    procedure BitBtn65Click(Sender: TObject);
    procedure BitBtn66Click(Sender: TObject);
    procedure BitBtn67Click(Sender: TObject);
    procedure BitBtn68Click(Sender: TObject);
    procedure BitBtn69Click(Sender: TObject);
    procedure BitBtn70Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N161Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure BitBtn42Click(Sender: TObject);
    procedure BitBtn41Click(Sender: TObject);
    procedure BitBtn37Click(Sender: TObject);
    procedure BitBtn43Click(Sender: TObject);
    procedure GroupBox7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn31Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }

    MainType,TranTypeId,MainQuery:integer;
    SaleType,Trantype,TypeMain,MaxNumber :integer;
    TypeName:string;
    SaveStr:String;  //平码头-6录入字符串
    ClientId,ChangeNO:integer;
    MainPhotoBz,OneSixInputBz:boolean;
    procedure TMNumBer_InfList(Sender:Tobject);
    procedure OneSixNumberList(Sender:Tobject);
    procedure TSaveDate(Sender:Tobject);
    procedure TExitList(Sender:Tobject);
    procedure TMaxNumber(Sender:Tobject);
    procedure ButtonEanble(Sender:Tobject);
    procedure ButtonDisEanble(Sender:Tobject);
    procedure OneSixLabelList(Sender:Tobject);
    procedure ButtonColor(Sender:Tobject);
    procedure RefurBish(Sender:TObject);
    procedure LabelBlack(Sender:TObject);
    procedure LabelSkyBlue(Sender:TObject);
    procedure ClientNameList(Sender:Tobject);
    Procedure ShapeActiveCaption(Sender:Tobject);
    Procedure ShapeSilver(Sender:Tobject);
  public

    { Public declarations }
  end;

var
  NumberSaleNew_form: TNumberSaleNew_form;

implementation
  uses NumberManger,CalmQuery,DangerDataList,OutMoney;
{$R *.dfm}
Procedure TNumberSaleNew_form.ShapeActiveCaption(Sender:Tobject);
begin
  Shape1.Pen.Color:=clActiveCaption;
  Shape2.Pen.Color:=clActiveCaption;
  Shape3.Pen.Color:=clActiveCaption;
  Shape4.Pen.Color:=clActiveCaption;
  Shape5.Pen.Color:=clActiveCaption;
  Shape6.Pen.Color:=clActiveCaption;
  Shape7.Pen.Color:=clActiveCaption;
  Shape8.Pen.Color:=clActiveCaption;
  Shape9.Pen.Color:=clActiveCaption;
  Shape10.Pen.Color:=clActiveCaption;
  Shape11.Pen.Color:=clActiveCaption;
  Shape12.Pen.Color:=clActiveCaption;
  Shape13.Pen.Color:=clActiveCaption;
  Shape14.Pen.Color:=clActiveCaption;
  Shape15.Pen.Color:=clActiveCaption;
  Shape16.Pen.Color:=clActiveCaption;
  Shape17.Pen.Color:=clActiveCaption;
  Shape18.Pen.Color:=clActiveCaption;
  Shape19.Pen.Color:=clActiveCaption;
  Shape20.Pen.Color:=clActiveCaption;
  Shape21.Pen.Color:=clActiveCaption;
  Shape22.Pen.Color:=clActiveCaption;
  Shape23.Pen.Color:=clActiveCaption;
  Shape24.Pen.Color:=clActiveCaption;
  Shape25.Pen.Color:=clActiveCaption;
  Shape26.Pen.Color:=clActiveCaption;
  Shape27.Pen.Color:=clActiveCaption;
  Shape28.Pen.Color:=clActiveCaption;
  Shape29.Pen.Color:=clActiveCaption;
  Shape30.Pen.Color:=clActiveCaption;
  Shape31.Pen.Color:=clActiveCaption;
  Shape32.Pen.Color:=clActiveCaption;
  Shape33.Pen.Color:=clActiveCaption;
  

  Shape37.Pen.Color:=clActiveCaption;
  Shape38.Pen.Color:=clActiveCaption;
  
  Shape40.Pen.Color:=clActiveCaption;
  Shape41.Pen.Color:=clActiveCaption;
  Shape42.Pen.Color:=clActiveCaption;
  Shape43.Pen.Color:=clActiveCaption;
  Shape44.Pen.Color:=clActiveCaption;
  
  Shape46.Pen.Color:=clActiveCaption;
  Shape47.Pen.Color:=clActiveCaption;
  Shape48.Pen.Color:=clActiveCaption;
  Shape49.Pen.Color:=clActiveCaption;
  Shape50.Pen.Color:=clActiveCaption;
  Shape51.Pen.Color:=clActiveCaption;
  Shape52.Pen.Color:=clActiveCaption;
  Shape53.Pen.Color:=clActiveCaption;
  Shape54.Pen.Color:=clActiveCaption;
  Shape55.Pen.Color:=clActiveCaption;
  Shape56.Pen.Color:=clActiveCaption;
  Shape57.Pen.Color:=clActiveCaption;
  Shape58.Pen.Color:=clActiveCaption;
  Shape59.Pen.Color:=clActiveCaption;
  Shape60.Pen.Color:=clActiveCaption;
  Shape61.Pen.Color:=clActiveCaption;
  Shape62.Pen.Color:=clActiveCaption;
  Shape63.Pen.Color:=clActiveCaption;
  Shape64.Pen.Color:=clActiveCaption;
  Shape65.Pen.Color:=clActiveCaption;
  Shape66.Pen.Color:=clActiveCaption;
  Shape67.Pen.Color:=clActiveCaption;
  Shape68.Pen.Color:=clActiveCaption;
  Shape69.Pen.Color:=clActiveCaption;
  Shape70.Pen.Color:=clActiveCaption;
  Shape71.Pen.Color:=clActiveCaption;
  Shape72.Pen.Color:=clActiveCaption;
  Shape73.Pen.Color:=clActiveCaption;
  Shape74.Pen.Color:=clActiveCaption;
  Shape75.Pen.Color:=clActiveCaption;
  Shape76.Pen.Color:=clActiveCaption;
  Shape77.Pen.Color:=clActiveCaption;
  Shape78.Pen.Color:=clActiveCaption;
  Shape79.Pen.Color:=clActiveCaption;
  Shape80.Pen.Color:=clActiveCaption;
  Shape81.Pen.Color:=clActiveCaption;
  Shape82.Pen.Color:=clActiveCaption;
  Shape83.Pen.Color:=clActiveCaption;
  Shape84.Pen.Color:=clActiveCaption;
  Shape85.Pen.Color:=clActiveCaption;
  Shape86.Pen.Color:=clActiveCaption;
  Shape87.Pen.Color:=clActiveCaption;
  Shape88.Pen.Color:=clActiveCaption;
  Shape89.Pen.Color:=clActiveCaption;
  Shape90.Pen.Color:=clActiveCaption;
  Shape91.Pen.Color:=clActiveCaption;
  Shape92.Pen.Color:=clActiveCaption;
  Shape93.Pen.Color:=clActiveCaption;
  Shape94.Pen.Color:=clActiveCaption;
  Shape95.Pen.Color:=clActiveCaption;
  Shape96.Pen.Color:=clActiveCaption;
  Shape97.Pen.Color:=clActiveCaption;
  Shape98.Pen.Color:=clActiveCaption;
  Shape99.Pen.Color:=clActiveCaption;
  Shape100.Pen.Color:=clActiveCaption;
  Shape101.Pen.Color:=clActiveCaption;
  Shape102.Pen.Color:=clActiveCaption;
end;
Procedure TNumberSaleNew_form.ShapeSilver(Sender:Tobject);
begin
  Shape1.Pen.Color:=clSilver;
  Shape2.Pen.Color:=clSilver;
  Shape3.Pen.Color:=clSilver;
  Shape4.Pen.Color:=clSilver;
  Shape5.Pen.Color:=clSilver;
  Shape6.Pen.Color:=clSilver;
  Shape7.Pen.Color:=clSilver;
  Shape8.Pen.Color:=clSilver;
  Shape9.Pen.Color:=clSilver;
  Shape10.Pen.Color:=clSilver;
  Shape11.Pen.Color:=clSilver;
  Shape12.Pen.Color:=clSilver;
  Shape13.Pen.Color:=clSilver;
  Shape14.Pen.Color:=clSilver;
  Shape15.Pen.Color:=clSilver;
  Shape16.Pen.Color:=clSilver;