⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 numbersalenewtwo.pas

📁 彩票销售系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    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;
    Edit42: TEdit;
    Edit43: TEdit;
    Edit44: TEdit;
    Edit45: TEdit;
    Edit46: TEdit;
    Edit47: TEdit;
    Shape22: TShape;
    Shape23: TShape;
    BitBtn38: TBitBtn;
    Label164: TLabel;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ClientWorkList_Q: TADOQuery;
    ClientName_Q: TADOQuery;
    ClientWorkList_D: TDataSource;
    ClientSumMoney: TADOQuery;
    EveryNumber_Q: TADOQuery;
    BitBtn36: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn32: TBitBtn;
    MoneySum_Q: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ClientButton1Click(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);
    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 BitBtn31Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    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 edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(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 GroupBox7MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn44Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BitBtn45Click(Sender: TObject);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn32Click(Sender: TObject);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    MainType,TranTypeId,MainQuery:integer;
    SaleType,Trantype,TypeMain,MaxNumber :integer;
    TypeName:string;
    SaveStr:String;  //平码头-6录入字符串
    EntryId,ClientId,ChangeNO:integer;
    OneSixInputBz:boolean;
    NumberString:string;
    procedure OneSixNumberList(Sender:Tobject);
    procedure TSaveDate(Sender:Tobject);
    procedure TMNumBer_InfList(Sender:Tobject);
    procedure ButtonEanble(Sender:Tobject);
    procedure ButtonDisEanble(Sender:Tobject);
    procedure OneSixLabelList(Sender:Tobject);
    procedure ButtonColor(Sender:Tobject);
    procedure RefurBish(Sender:TObject);
    procedure ClientWorkList(Sender:TObject);
    procedure ClientNameList(Sender:TObject);
    Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
  public

    { Public declarations }
  end;

var
  NumberSaleNewtwo_form: TNumberSaleNewtwo_form;

implementation
  uses NumberManger,NumberSaleNew;
{$R *.dfm}

procedure TNumberSaleNewtwo_form.ClientWorkList(Sender:Tobject);
var
  ClientWorkSql:string;
begin
  if ClientId>0 then
  begin
    ClientWorkSql:='select * from EmpWorkList_V where 期号='''+SalePeriod+'''';
    ClientWorkSql:=ClientWorkSql+' and 客户内码='''+floattostr(ClientId)+'''';
    ClientWorkList_Q.close;
    ClientWorkList_Q.sql.clear;
    ClientWorkList_Q.sql.add(ClientWorkSql);
    ClientWorkList_Q.OPen;
    ClientWorkList_Q.Last;
    if ClientWorkList_Q.RecordCount>0 then
    begin
      if EntryId=-1 then
      begin
        Label7.Caption:=floattostr(ClientWorkList_Q.FieldByName('金额').value );
      end
      else
      begin
        ClientWorkSql:='select sum(金额) as SumMoney from EmpWorkList_V where 期号='''+SalePeriod+'''';
        ClientWorkSql:=ClientWorkSql+' and 客户内码='''+floattostr(ClientId)+'''';
        ClientWorkSql:=ClientWorkSql+' and 录入序号>'''+floattostr(EntryId)+'''';
        MoneySum_Q.Close;
        MoneySum_Q.SQL.Clear;
        MoneySum_Q.SQL.Add(ClientWorkSql);
        MoneySum_Q.open;
        Label7.Caption:=floattostr(MoneySum_Q.Fields[0].value );
        MoneySum_Q.Close;
      end;
    end
    else
    begin
      Label7.Caption:='';
    end;
    ClientWorkSql:='select Sum(金额) as SumMoney From EmpWorkList_V where 期号='''+SalePeriod+'''';
    ClientWorkSql:=ClientWorkSql+' and 客户内码='''+floattostr(ClientId)+'''';
    ClientSumMoney.Close;
    ClientSumMoney.SQL.Clear;
    ClientSumMoney.SQL.Add(ClientWorkSql);
    ClientSumMoney.Open;
    if ClientSumMoney.Fields[0].value>=0 then
    begin
      Label164.Caption:=floattostr(ClientSumMoney.Fields[0].value);
    end
    else
    begin
      Label164.Caption:='';
    end;
  end;
end;


procedure TNumberSaleNewtwo_form.ClientNameList(Sender:Tobject);
begin
  if ClientId>0 then
  begin
    ClientName_Q.Close;
    ClientName_Q.SQL.Clear;
    ClientName_Q.SQL.Add('select FclientName from T_Client where FClientid='''+floattostr(ClientId)+'''');
    ClientName_Q.Open;
    if ClientName_Q.Fields[0].Value<>Null then
    begin
      Label1.Caption:=ClientName_Q.Fields[0].Value; Label1.Refresh;
    end
    else
    begin
      Label1.Caption:=''; Label1.Refresh;
    end;
    ClientName_Q.Close;
  end;
end;



procedure TNumberSaleNewtwo_form.RefurBish(Sender:Tobject);
begin
  if ClientButton1.Checked then ClientButton1Click(Sender);
  if ClientButton2.Checked then ClientButton2Click(Sender);
  if ClientButton3.Checked then ClientButton3Click(Sender);
  if ClientButton4.Checked then ClientButton4Click(Sender);
  if ClientButton5.Checked then ClientButton5Click(Sender);
  if ClientButton6.Checked then ClientButton6Click(Sender);
  if ClientButton7.Checked then ClientButton7Click(Sender);
  if ClientButton8.Checked then ClientButton8Click(Sender);
  if ClientButton9.Checked then ClientButton9Click(Sender);
  if ClientButton10.Checked then ClientButton10Click(Sender);
  if ClientButton11.Checked then ClientButton11Click(Sender);
  if ClientButton12.Checked then ClientButton12Click(Sender);
  if ClientButton13.Checked then ClientButton13Click(Sender);
  if ClientButton14.Checked then ClientButton14Click(Sender);
  if ClientButton15.Checked then ClientButton15Click(Sender);
  if ClientButton16.Checked then ClientButton16Click(Sender);
  if ClientButton17.Checked then ClientButton17Click(Sender);
  if ClientButton18.Checked then ClientButton18Click(Sender);
  if ClientButton19.Checked then ClientButton19Click(Sender);
  if ClientButton20.Checked then ClientButton20Click(Sender);
end;

procedure TNumberSaleNewtwo_form.OneSixLabelList(Sender:Tobject);
begin
//1-6
  Label85.Caption:=''; Label85.visible:=false;
  Label86.Caption:=''; Label86.visible:=false;
  Label95.Caption:=''; Label95.visible:=false;
  Label96.Caption:=''; Label96.visible:=false;
  Label97.Caption:=''; Label97.visible:=false;
  Label98.Caption:=''; Label98.visible:=false;
  Label99.Caption:=''; Label99.visible:=false;
  Label56.Caption:=''; Label56.visible:=false;
  Label101.Caption:=''; Label101.visible:=false;
  Label102.Caption:=''; Label102.visible:=false;
  Label103.Caption:=''; Label103.visible:=false;
  Label104.Caption:=''; Label104.visible:=false;
  Label105.Caption:=''; Label105.visible:=false;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -