Delphi 最近做的一个Delphi功能,查询数据显示到TChart上

最新推荐文章于 2023-02-25 20:53:27 发布
最新推荐文章于 2023-02-25 20:53:27 发布
阅读量984 收藏 1
点赞数
分类专栏： Delphi 文章标签： Delphi SQL J# C C++
初学Delphi

1,加载时把数据动态显示到下拉列表中
2,加载时获取当前系统时间显示到下拉列表中
3,定义变量
4,查询值显示到Tchart中
5,抓图打印
6,连接并查询数据库
7,if,for,while写法
8,截取字符串 

unit lltjFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, DB, ADODB, Series,
  RpDefine, RpRender, RpRenderCanvas, RpRenderPrinter, Printers, Clipbrd ;

type
    TFrmLltj = class(TForm)
    chart: TChart;
    ADOConnection1: TADOConnection;
    lltjquery: TADOQuery;
    DataSource1: TDataSource;
    fstlnsrsSeries1: TFastLineSeries;
    PrintDialog1: TPrintDialog;
    GroupBox2: TGroupBox;
    lbl1: TLabel;
    grp2_lbl_lltj_sj: TLabel;
    grp2_lbl_qs: TLabel;
    grp2_lbl_qs_n: TLabel;
    grp2_lbl_qs_y: TLabel;
    grp2_lbl_qs_r: TLabel;
    grp2_lbl_qs_s: TLabel;
    grp2_lbl_qs_f: TLabel;
    grp2_lbl_js: TLabel;
    grp2_lbl_js_n: TLabel;
    grp2_lbl_js_y: TLabel;
    grp2_lbl_js_r: TLabel;
    grp2_lbl_js_s: TLabel;
    grp2_lbl_js_f: TLabel;
    grp2_lbl_lk: TLabel;
    GroupBox1: TGroupBox;
    lbl_xzlk: TLabel;
    lbl_lltjsj: TLabel;
    lbl_qs: TLabel;
    lbl_qs_n: TLabel;
    lbl_qs_y: TLabel;
    lbl_qs_r: TLabel;
    lbl_qs_s: TLabel;
    lbl_qs_f: TLabel;
    lbl_js: TLabel;
    lbl_js_n: TLabel;
    lbl_js_y: TLabel;
    lbl_js_r: TLabel;
    lbl_js_s: TLabel;
    lbl_js_f: TLabel;
    cbb_xzlk: TComboBox;
    Button1: TButton;
    cbb_qs_n: TComboBox;
    cbb_qs_y: TComboBox;
    cbb_qs_r: TComboBox;
    cbb_qs_s: TComboBox;
    cbb_qs_f: TComboBox;
    cbb_js_n: TComboBox;
    cbb_js_y: TComboBox;
    cbb_js_r: TComboBox;
    cbb_js_s: TComboBox;
    cbb_js_f: TComboBox;
    Button2: TButton;
    Button3: TButton;
    procedure FormActivate(Sender: TObject);
    procedure cbb_xzlkChange(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLltj : TFrmLltj;
  kkdh : AnsiString ;//卡口代号
  kkmc : array[1..10000000] of AnsiString;//定义卡口名称数组
  kkgs : Integer ;//卡口个数
  yll : array[1..12] of Integer;//月流量
  rll : array[1..31] of Integer;//日流量
  sll : array[1..24] of Integer;//时流量
  fll : array[1..60] of Integer;//分流量

implementation

{$R *.dfm}

uses LltjQRFrm;

//李猛,09-5-19

procedure TFrmLltj.FormActivate(Sender: TObject);
 var
    Present : TDateTime;//声明一个TDateTime类型
    Year, Month, Day, Hour, Min, Sec, MSec : Word;//word类型用来显示年月日,时分秒毫秒
begin //1
    Present := Now;//获取系统当前时间
    DecodeDate(Present, Year, Month, Day);//获取年月日
    DecodeTime(Present, Hour, Min, Sec, MSec);//获取时分秒毫秒


    cbb_qs_n.Text := IntToStr(Year);//显示年
    cbb_qs_y.Text := FormatDateTime('mm',Present);//显示月
    cbb_qs_r.Text := FormatDateTime('dd',Present);//显示日
    cbb_qs_s.Text := FormatDateTime('hh',Present);//显示时
    cbb_qs_f.Text := FormatDateTime('nn',Present);//显示分

    cbb_js_n.Text := IntToStr(Year);//显示年
    cbb_js_y.Text := FormatDateTime('mm',Present);//显示月
    cbb_js_r.Text := FormatDateTime('dd',Present);//显示日
    cbb_js_s.Text := FormatDateTime('hh',Present);//显示时
    cbb_js_f.Text := FormatDateTime('nn',Present);//显示分 

    cbb_xzlk.Clear;//清空选择路口下拉列表
    lltjquery.Close;//关闭ADOQuery
    lltjquery.SQL.Clear;//清除ADOQuery中SQL
    lltjquery.SQL.Add('select * from kk.kkdj ');//添加ADOQuery中SQL语句
    lltjquery.Open;//打开ADOQuery
    while (not lltjquery.Eof) do
    begin
      cbb_xzlk.Items.Add(lltjquery.FieldByName('kkmc').AsString);//把kk.kkdj表中kkmc字段的值装到选择卡口下拉列表中
      lltjquery.Next;
    end;

    chart.Series[0].Clear;
    chart.Title.Text.Clear;
    chart.Title.Text.Add('路口流量统计');
    chart.AutoRepaint := true;
end; //1

procedure TFrmLltj.cbb_xzlkChange(Sender: TObject);
begin //2
  //   AnsiString kkdh;//卡口代号(用于查看图片模块的查询)

    if Trim(cbb_xzlk.Text)<>'' then
    begin
       lltjquery.Close;
       lltjquery.SQL.Clear;
       lltjquery.SQL.Add('select * from kk.kkdj where kkmc like '''+Trim(cbb_xzlk.Text)+'''');
       lltjquery.Open;
       kkdh := lltjquery.FieldByName('kkdh').AsString; //保存kkdh的值
    end   else
      Showmessage('选择好想要查看的路口！');

end; //2

procedure TFrmLltj.Button3Click(Sender: TObject);
var
  i : Int64 ;
  j : Longint ;
begin //3
  i := 0;

  chart.Repaint;
  chart.Series[0].Clear; //清空chart里的值


  lltjquery.Close;
  lltjquery.SQL.Clear;
  lltjquery.SQL.Add('select * from kk.kkdj order by kkdh');
  lltjquery.Open;

  while (not lltjquery.Eof) do
  begin
    //kkmc[i] := lltjquery.FieldByName('kkdh').AsString + lltjquery.FieldByName('kkmc').AsString;//原来是把kkdh和kkmc加一起的,现在只留kkdh
    kkmc[i] := lltjquery.FieldByName('kkdh').AsString ;
    i := i + 1;
    lltjquery.Next;
  end;
  kkgs := lltjquery.RecordCount;

  for j := 0 to (kkgs - 1) do
  begin
    lltjquery.Close;
    lltjquery.SQL.Clear;
    //lltjquery.SQL.Add('select * from kk.kkcltj where kkdd = '+copy(kkmc[j],1,4)+'');
    if kkmc[j] = '' then //kkmc里没值则跳出
    begin
      Break;
    end else
    lltjquery.SQL.Add('select zpsj,kkdd,xsfx,xscd,xzsd,sjsd,csbz,hphm,hpzl,zpdx,xh from kk.kkcltj where kkdd = '''+copy(kkmc[j],1,4)+'''');
    lltjquery.Open;
    //ShowMessage(IntToStr(j));
      //ShowMessage(copy(kkmc[j],5,(Length(kkmc[j])-2)));
    //ShowMessage(IntToStr(lltjquery.RecordCount));
    chart.SeriesList.Series[0].Add(lltjquery.RecordCount,copy(kkmc[j],5,(Length(kkmc[j])-2)),clRed);//画chart
  end;
end; //3

procedure TFrmLltj.Button2Click(Sender: TObject);
var
  j : Longint ;
  a, b, c, d, e, f, g, h, i, k, m, n, c1, e1, m1, n1, g1, i1, a1, m2, n2, m3, n3 : Integer;
begin //4
  //如果选择了卡口，则按照所选定的时间显示，如：选择了年，则按月来分布；如选择了月，则按日来分布；
  //如果没有选择卡口，则显示所有卡口的流量的分布；


  chart.Series[0].Clear;

  if Trim(cbb_xzlk.Text) <>'' then   //判断 选择路口是否为空
  begin  //5

    if Trim(cbb_qs_f.Text) = '' then  //判断起始分是否为空
    begin  //6
      //按年查询
      //起始年不为空,其他起始时间为空
      if (not(Trim(cbb_qs_n.Text) = '')) and (Trim(cbb_qs_y.Text) = '') and (Trim(cbb_qs_r.Text) = '') and (Trim(cbb_qs_s.Text) = '') and (Trim(cbb_qs_f.Text) = '') then
      begin //8
        //   Form1->FormActivate(NULL);
        for j := 1 to 12 do
        begin  //9
          if j = 12 then
          begin  //10
            lltjquery.Close;
            lltjquery.SQL.Clear;
            lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+') and (zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00',12) + '-01'',''yyyy-mm-dd'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00',12) + '-31'',''yyyy-mm-dd'')  )  ');
            lltjquery.Open;
            yll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
            chart.Series[0].Add(yll[j-1],IntToStr(j)+'月',clDefault);
          end else
          begin
            lltjquery.Close;
            lltjquery.SQL.Clear;
            lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00',j) + '-01'',''yyyy-mm-dd'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00',j+1) + '-01'',''yyyy-mm-dd''))');
            lltjquery.Open;
            yll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
            chart.Series[0].Add(yll[j-1],IntToStr(j)+'月',clDefault);
            end;  //10
        end;  //9
      end; //8

       //按月查询
       //起始年月不为空,其他起始时间为空
      if (not(Trim(cbb_qs_n.Text) = '')) and (not(Trim(cbb_qs_y.Text) = '')) and (Trim(cbb_qs_r.Text) = '') and (Trim(cbb_qs_s.Text) = '') and (Trim(cbb_qs_f.Text) = '') then
      begin //11
        if Trim(cbb_qs_y.Text) = '02' then
        begin //12
          if StrToInt(Trim(cbb_qs_n.Text)) mod 400 = 0 then //判断是否闰年
          begin //13
            for j := 1 to 29 do
            begin
              lltjquery.Close;
              lltjquery.SQL.Clear;
              lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
              lltjquery.Open();
              rll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
              chart.Series[0].Add(rll[j-1],IntToStr(j)+'日',clDefault);
            end;
          end  //13
          else if StrToInt(Trim(cbb_qs_n.Text)) mod 4 = 0 then //判断是否闰年
          begin
            for j := 1 to 29 do  //闰年
            begin
              lltjquery.Close;
              lltjquery.SQL.Clear;
              lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
              lltjquery.Open;
              rll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
              chart.Series[0].Add(rll[j-1],IntToStr(j)+'日',clDefault);

            end;

          end else
          begin
            for j := 1 to 28 do  //不是闰年
            begin
              lltjquery.Close;
              lltjquery.SQL.Clear;
              lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
              lltjquery.Open;
              rll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
              chart.Series[0].Add(rll[j-1],IntToStr(j)+'日',clDefault);
            end;
          end; //13
        end
        else if (Trim(cbb_qs_y.Text) = '04') or (Trim(cbb_qs_y.Text) = '06') or (Trim(cbb_qs_y.Text) = '09') or (Trim(cbb_qs_y.Text) = '11') then //30天的月份
        begin
          for j := 1 to 30 do
          begin
            lltjquery.Close;
            lltjquery.SQL.Clear;
            lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
            lltjquery.Open;
            rll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
            chart.Series[0].Add(rll[j-1],IntToStr(j)+'日',clDefault);
          end;
        end else
        begin
          for j := 1 to 31 do   //31天的月份
          begin
            lltjquery.Close;
            lltjquery.SQL.Clear;
            lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00',j)+'  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
            lltjquery.Open;
            rll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
            // rll[j-1]=lltjquery->RecordCount;
            chart.Series[0].Add(rll[j-1],IntToStr(j)+'日',clDefault);
          end;
        end; //12
      end; //11

        //按天查询
       //起始年月日不为空,其他起始时间为空
      if (not (Trim(cbb_qs_n.Text) = '')) and (not (Trim(cbb_qs_y.Text) = '')) and (not (Trim(cbb_qs_r.Text) = '')) and (Trim(cbb_qs_s.Text) = '') and (Trim(cbb_qs_f.Text) = '') then
      begin //14
        for j := 0 to (24 -1) do
        begin
          lltjquery.Close;
          lltjquery.SQL.Clear;
          lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text +' '+FormatFloat('00',j)+':00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text +' '+FormatFloat('00',j)+':59:59'',''yyyy-mm-dd hh24:mi:ss''))');
          lltjquery.Open;
          sll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
          chart.Series[0].Add(sll[j-1],IntToStr(j)+'时',clDefault);
        end
      end; //14

      //按分钟查询
      //起始年月时不为空,其他起始时间为空
      if (not(Trim(cbb_qs_n.Text) = '')) and (not (Trim(cbb_qs_y.Text) = '')) and (not (Trim(cbb_qs_r.Text) = '')) and (not(Trim(cbb_qs_s.Text) = '')) and (Trim(cbb_qs_f.Text) = '') then
      begin //15
        for j := 0 to (60 -1) do
        begin
          lltjquery.Close;
          lltjquery.SQL.Clear;
          lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text +' '+cbb_qs_s.Text+':'+FormatFloat('00',j)+':00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text +' '+ cbb_qs_s.Text +':'+FormatFloat('00',j)+':59'',''yyyy-mm-dd hh24:mi:ss''))');
          lltjquery.Open;
          fll[j-1] := lltjquery.FieldByName('count(*)').AsInteger;
          chart.Series[0].Add(fll[j-1],IntToStr(j)+'分',clDefault);
        end
      end; //15

    end else  //判断两种查询方式的条件 //6
    begin  //7
      //第二判断条件

      c := StrToInt(cbb_qs_s.Text);//起始时赋给c
      d := StrToInt(cbb_js_s.Text);//结束时赋给d
      e := StrToInt(cbb_qs_r.Text);//起始日赋给e
      f := StrToInt(cbb_js_r.Text);//结束日赋给f
      g := StrToInt(cbb_qs_f.Text);//起始分赋给g
      h := StrToInt(cbb_js_f.Text);//结束分赋给h
      i := StrToInt(cbb_qs_y.Text);//起始月赋给i
      k := StrToInt(cbb_js_y.Text);//结束月赋给k
      a := StrToInt(cbb_qs_n.Text);//起始年赋给a
      b := StrToInt(cbb_js_n.Text);//结束年赋给b


      m := 23 - c + 1; //剩余小时
      n := d + 1;
      c1 := d - c + 1;//某段时间小时数
      e1 := f - e + 1;//某段时间天数
      m1 := 59 - g + 1;//剩余分钟
      n1 := h + 1;
      g1 := h - g + 1;//某段时间秒数
      i1 := k - i + 1;//某段时间月数
      //   a1=b-a+1;//某段时间年数
      m3 := 12 - i + 1;//剩余月数
      n3 := k;


      if Trim(cbb_qs_y.Text) = '02' then         //剩余天数
      begin //16
        if StrToInt(Trim(cbb_qs_n.Text)) mod 400 = 0 then
        begin //17
        m2 := 29 - e + 1;
        end else
        begin
          if StrToInt(Trim(cbb_qs_n.Text)) mod 4 = 0 then
          begin
            m2 := 29 - e + 1;
          end	else
          begin
            m2 := 28 - e + 1;
          end
        end; //17
      end
      else if (Trim(cbb_qs_y.Text) = '04') or (Trim(cbb_qs_y.Text) = '06') or (Trim(cbb_qs_y.Text) = '09') or (Trim(cbb_qs_y.Text) = '11') then //起始月为30天
      begin
        m2 := 30 - e + 1;
      end else
      begin
        m2 := 31 - e + 1;
      end; //16

      n2 := f;
      //时间段不同分钟查询
      //起始和结束的年月日相同,其他为空      
      if (cbb_qs_n.Text = cbb_js_n.Text) and (cbb_qs_y.Text = cbb_js_y.Text) and (cbb_qs_r.Text = cbb_js_r.Text) and (not(Trim(cbb_qs_s.Text) = '')) and (not(Trim(cbb_js_s.Text) = '')) and (not(Trim(cbb_qs_f.Text) = '')) and (not(Trim(cbb_js_f.Text) = '')) then
      begin //18
        if d < c then
        begin  //19
          Application.MessageBox(('日期错误！'), '注意', MB_OK );
        end else
        begin
          if (d = c + 1) or (d = c) then //添加一个条件补充
          begin //20
            if d = (c + 1) then
            begin //21
              for j := 0 to (m1 + n1 - 1) do
              begin //22
                if (j < m1) then
                begin //23
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + cbb_qs_s.Text + ':' + FormatFloat('00', g + j) + ':00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + cbb_qs_s.Text + ':' + FormatFloat('00', g + j) + ':59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open;
                  fll[g + j] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(fll[g + j], IntToStr(c) + '时' + IntToStr(g + j) + '分', clDefault);
                end;
                if (j >= m1) then
                begin
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + cbb_js_r.Text + ' ' + cbb_js_s.Text + ':' + FormatFloat('00', j - m1) + ':00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + cbb_js_r.Text + ' ' + cbb_js_s.Text + ':' + FormatFloat('00', j - m1) + ':59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open;
                  fll[j - m1] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(fll[j - m1], IntToStr(d) + '时' + IntToStr(j - m1) + '分', clDefault);
                end; //23
              end; //22
            end;  //21

            if (d = c) then
            begin //24
              for j := 0 to (g1 - 1) do
              begin //25
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + cbb_qs_s.Text + ':' + FormatFloat('00', g + j) + ':00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + cbb_qs_s.Text + ':' + FormatFloat('00', g + j) + ':59'',''yyyy-mm-dd hh24:mi:ss''))');
                lltjquery.Open;
                fll[g + j] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(fll[g + j], IntToStr(c) + '时' + IntToStr(g + j) + '分', clDefault);
              end;//25
            end; //24
          end else  //添加一个条件补充
          begin
            for j := 0 to (c1 - 1) do
            begin //26
              lltjquery.Close;
              lltjquery.SQL.Clear;
              lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':59:59'',''yyyy-mm-dd hh24:mi:ss''))');
              lltjquery.Open;
              sll[c + j] := lltjquery.FieldByName('count(*)').AsInteger;
              chart.Series[0].Add(sll[c + j], IntToStr(c + j) + '时', clDefault);
            end; //26
          end; //20
        end;  //19
      end
          //时间段不同日期查询
          //起始和结束的年月相同,其他为空    
      else if (cbb_qs_n.Text = cbb_js_n.Text) and (cbb_qs_y.Text = cbb_js_y.Text) and (not(Trim(cbb_qs_r.Text) = '')) and (not(Trim(cbb_js_r.Text) = '')) and (not(Trim(cbb_qs_f.Text) = '')) and (not(Trim(cbb_js_s.Text) = '')) and (not(Trim(cbb_qs_s.Text) = '')) and (not(Trim(cbb_js_f.Text) = ''))  then
      begin
        if (f < e) then
        begin //27
          Application.MessageBox(('日期错误！'), '注意', MB_ICONINFORMATION);
        end else
        begin
          if (f = (e + 1)) or (f = e) then//判断条件
          begin //28
            if (f = (e + 1)) then
            begin //29
              for j := 0 to (m + n - 1) do
              begin //30
                if (j < m) then
                begin //31
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open;
                  sll[c + j] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(sll[c + j], IntToStr(e) + '日' + IntToStr(c + j) + '时', clDefault);
                end; //31
                if (j >= m) then
                begin //32
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + cbb_js_r.Text + ' ' + FormatFloat('00', j - m) + ':00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + cbb_js_r.Text + ' ' + FormatFloat('00', j - m) + ':59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open;
                  sll[j - m] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(sll[j - m], IntToStr(f) + '日' + IntToStr(j - m) + '时', clDefault);
                end; //32
              end; //30
            end; //29

            if (f = e) then
            begin //33
              for j := 0 to (c1 - 1) do
              begin //34
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + cbb_qs_r.Text + ' ' + FormatFloat('00', c + j) + ':59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                lltjquery.Open;
                sll[c + j] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(sll[c + j], IntToStr(e) + '日' + IntToStr(c + j) + '时', clDefault);
              end; //34
            end; //33

          end else  //判断条件
          begin
            for j := 0 to (e1 - 1) do
            begin  //35
              lltjquery.Close;
              lltjquery.SQL.Clear;
              lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
              lltjquery.Open;
              rll[e + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
              chart.Series[0].Add(rll[e + j - 1], IntToStr(e + j) + '日', clDefault);
            end; //35
          end; //28
        end; //27

      //时间段不同月份查询
      //起始和结束的年相同,其他为空    
      end
      else if (cbb_qs_n.Text = cbb_js_n.Text) and (not(Trim(cbb_qs_y.Text) = '')) and (not(Trim(cbb_js_y.Text) = '')) and (not(Trim(cbb_qs_r.Text) = '')) and (not(Trim(cbb_js_r.Text) = '')) and (not(Trim(cbb_qs_f.Text) = '')) and (not(Trim(cbb_js_s.Text) = '')) and (not(Trim(cbb_qs_s.Text) = '')) and (not(Trim(cbb_js_f.Text) = '')) then
      begin
        if (k < i) then
        begin  //36
          Application.MessageBox(('日期错误！'), '注意', MB_ICONINFORMATION);
        end else
        begin
          if (k = i + 1) or (k = i) then  //添加的一个判断条件
          begin //37
            if (k = i + 1) then
            begin //38
              for j := 0 to (m2 + n2 - 1) do
              begin //39
                if (j < m2) then
                begin  //40
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open;
                  rll[e + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(rll[e + j - 1], IntToStr(i) + '月' + IntToStr(e + j) + '日', clDefault);

                end; //40
                if (j >= m2) then
                begin //41
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + FormatFloat('00', j - m2 + 1) + '  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_js_n.Text + '-' + cbb_js_y.Text + '-' + FormatFloat('00', j - m2 + 1) + '  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                  lltjquery.Open();
                  rll[j - m2] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(rll[j - m2], IntToStr(k) + '月' + IntToStr(j - m2 + 1) + '日', clDefault);
                end; //41
              end; //39
            end; //38
            if (k = i) then
            begin //42
              for j := 0 to (e1 - 1) do
              begin  //43
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + cbb_qs_y.Text + '-' + FormatFloat('00', e + j) + '  23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                lltjquery.Open;
                rll[e + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(rll[e + j - 1], IntToStr(i) + '月' + IntToStr(e + j) + '日', clDefault);
              end; //43
            end; //42
          end else  //添加的一个判断条件
          begin
            for j := 0 to (i1 - 1) do
            begin //44
              if (i + j = 12) then
              begin //45
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', 12) + '-01 00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', 12) + '-31 23:59:59'',''yyyy-mm-dd hh24:mi:ss''))');
                lltjquery.Open;
                yll[i + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(yll[i + j - 1], IntToStr(i + j) + '月', clDefault);
              end else
              begin
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', i + j) + '-01  00:00:00'',''yyyy-mm-dd hh24:mi:ss'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', i + j + 1) + '-01  00:00:00'',''yyyy-mm-dd hh24:mi:ss''))');
                lltjquery.Open;
                yll[i + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(yll[i + j - 1], IntToStr(i + j) + '月', clDefault);
              end; //45
            end; //44
          end; //37
        end; //36

      //对应不同年份查询
      //起始和结束的年月日时分全不为空
      end
      else if (not(Trim(cbb_qs_n.Text) = '')) and (not(Trim(cbb_js_n.Text) = '')) and (not(Trim(cbb_qs_y.Text) = '')) and (not(Trim(cbb_js_y.Text) = '')) and (not(Trim(cbb_qs_r.Text) = '')) and (not(Trim(cbb_js_r.Text) = '')) and (not(Trim(cbb_qs_f.Text) = '')) and (not(Trim(cbb_js_s.Text) = '')) and (not(Trim(cbb_qs_s.Text) = '')) and (not(Trim(cbb_js_f.Text) = '')) then
      begin
        if (b < a) then
        begin //46
          Application.MessageBox(('日期错误！'), '注意', MB_ICONINFORMATION);
        end else
        begin
          if (b = a + 1) then
          begin //47
            for j := 0 to (m3 + n3 - 1) do
            begin  //48
              if (j < m3) then
              begin  //49
                if (i + j = 12) then
                begin //51
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', 12) + '-01'',''yyyy-mm-dd'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', 12) + '-31'',''yyyy-mm-dd''))');
                  lltjquery.Open;
                  yll[i + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(yll[i + j - 1], IntToStr(a) + '年' + IntToStr(i + j) + '月', clDefault);
                end else
                begin
                  lltjquery.Close;
                  lltjquery.SQL.Clear;
                  lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', i + j) + '-01'',''yyyy-mm-dd'') and zpsj < to_date(''' + cbb_qs_n.Text + '-' + FormatFloat('00', i + j + 1) + '-01'',''yyyy-mm-dd''))');
                  lltjquery.Open;
                  yll[i + j - 1] := lltjquery.FieldByName('count(*)').AsInteger;
                  chart.Series[0].Add(yll[i + j - 1], IntToStr(a) + '年' + IntToStr(i + j) + '月', clDefault);
                end; //51
              end; //49
              if j >= m3 then
              begin //50
                lltjquery.Close;
                lltjquery.SQL.Clear;
                lltjquery.SQL.Add('select count(*) from kk.kkcltj where (kkdd = '+kkdh+')  and ( zpsj > to_date(''' + cbb_js_n.Text + '-' + FormatFloat('00', j - m3 + 1) + '-01'',''yyyy-mm-dd'') and zpsj < to_date(''' + cbb_js_n.Text + '-' + FormatFloat('00', j - m3 + 2) + '-01'',''yyyy-mm-dd''))');
                lltjquery.Open;
                yll[j - m3] := lltjquery.FieldByName('count(*)').AsInteger;
                chart.Series[0].Add(yll[j - m3], IntToStr(b) + '年' + IntToStr(j - m3 + 1) + '月', clDefault);
              end; //50
            end; //48
          end; //47
        end; //46
      end; //18
    end;//判断两种查询方式的条件的结束符号  //7
  end;//判断 选择路口是否为空 //5
end;  //4

procedure TFrmLltj.Button1Click(Sender: TObject);
var
    //FrmQr : TQRFrmLltj;

  FormImage: TBitmap;
  MyImage:TImage;

  r1:TRect;   


begin //52
  cbb_xzlk.Width := 100;

  grp2_lbl_lk.Caption := cbb_xzlk.Text;  //选择的路口赋

  grp2_lbl_qs_n.Caption := cbb_qs_n.Text + '   年'; //选择的年
  grp2_lbl_qs_y.Caption := cbb_qs_y.Text + '   月'; //选择的月
  grp2_lbl_qs_r.Caption := cbb_qs_r.Text + '   日'; //选择的日
  grp2_lbl_qs_s.Caption := cbb_qs_s.Text + '   时'; //选择的时
  grp2_lbl_qs_f.Caption := cbb_qs_f.Text + '   分'; //选择的分

  grp2_lbl_js_n.Caption := cbb_js_n.Text + '   年'; //选择的年
  grp2_lbl_js_y.Caption := cbb_js_y.Text + '   月'; //选择的月
  grp2_lbl_js_r.Caption := cbb_js_r.Text + '   日'; //选择的日
  grp2_lbl_js_s.Caption := cbb_js_s.Text + '   时'; //选择的时
  grp2_lbl_js_f.Caption := cbb_js_f.Text + '   分'; //选择的分


  GroupBox1.Visible := False;  //打印起始时隐藏GroupBox1


  FormImage := GetFormImage; //抓图
  MyImage := TImage.Create(nil); //

  try //53
    Clipboard.Assign(FormImage);
    MyImage.Picture.Assign(Clipboard);

    r1:=Rect(50,50,1500,1500); //设置x坐标,y坐标,横大小,竖大小
    if printdialog1.execute then //弹出打印属性框
    begin //54
    printer.begindoc;  //开始打印
      Printer.Canvas.StretchDraw(r1,MyImage.Picture.Graphic);  //打印中
      //Printer.Canvas.draw(0,0,MyImage.Picture.Bitmap);
    printer.enddoc; //结束打印
    end; //54

    //MyImage.Picture.SaveToFile('D:/xxx.bmp');
  finally
    begin //55
    MyImage.Free;  //释放资源
    FormImage.Free;//释放资源
    GroupBox1.Visible := True;  //打印结束后显示GroupBox1
    end; //55
  end; //53
end;  //52

end.


黑色头发:http://heisetoufa.iteye.com/
limon758
关注
专栏目录
delphi chart 曲线实时_遗忘曲线
weixin_39907157的博客
11-06 395
公式遗忘曲线描述了回忆的概率随时间推移而下降的情况其中：R - 回忆概率(记忆的可提取性)S - 记忆痕迹的强度(记忆的稳定性)t - 时间解释在大量的记忆细节中，遗忘曲线的形状将取决于：(1)记忆的复杂性(即从记忆中统一地提取各个知识细节的难度)，(2)记忆的稳定性(即各个细节在记忆中的建立程度)。例如，一组简单的法语单词，在同一天记忆，可能会排列成一条符合上述公式的曲线。那些法语单词的复杂度会...
Delphi图表控件TChart使用FAQ
xwchen的专栏
03-14 1125
Delphi图表控件TChart使用FAQ  最近开发要使 用图表，Delphi里提供了图表开发的控件TChart，可惜帮助里没有DEMO代码，上网搜索了一下，竟然发现文章也少的可怜。没办法，自己丰衣足 食，写代码试用，看帮助，读代码，搞了半天大概弄明白了TChart的使用
Delphi中TeeChart用法------饼图
【昆山人在上海】
05-31 3741
Delphi中TeeChart用法------饼图
delphi query下的sql动态查询
MAO_JIN_DAO的博客
06-02 2828
delphi query下的sql动态查询效果图 设计视图 所需控件： 1. Query（数据集控件） 2. Datasource（数据访问控件） 3. DBGrid (数据浏览控件) Query->Datadource->DBGrid代码如下procedure TForm1.Button2Click(Sender: TObject); begin if combobox1.
delphi通过TChart实现各种图表功能
tujm的专栏
06-14 2658
procedure TFrmScsjkb.FormShow(Sender: TObject); var Chart: TChart; //test L,S,F: TChartSeries;//test seriesCl,seriesJh: TBarSeries;//TLineSeries; seriesQncl,SeriesQnjh,seriesJcZb: TPieSeries; seriesMycl,seriesLz,seriesS,seriesF:TLineSeries; na:
Delphi 读写数据库图像
aitanwu4387的博客
05-18 216
注：以下程序中注意在uses处加上DB,jpeg，如没有则TBlobField找不到 一、 原理介绍——流式数据的类型及其应用 在Dephi中提供了TStream来支持对流式数据的操作。TStream是万流之源，但由于它是一个抽象类，故不能被直接使用；而要使用其相应的子类，如：TFileStream 、TStringStream、TMemoryStream、TBlobStre...
双色球历史数据例子（Delphi+XE10.2+Win10）+源码
04-28
这个项目对于学习Delphi编程、数据处理和彩票数据分析的初学者来说，是一个很好的实践案例。通过研究源码，可以了解如何在Delphi中实现这些功能，同时也能加深对数据处理和分析的理解。对于经验丰富的开发者，此项目...
Delphi 实现饼状图和动画
08-19
在Delphi编程环境中，开发图形用户...通过以上步骤，你可以在Delphi环境中创建一个交互式且具有动画效果的饼状图，有效地展示了从数据库中获取的数据。这个Demo为你提供了一个起点，你可以根据实际需求进行扩展和定制。
Delphi显示数据库中的内容为图表形式..rar
04-18
本文将详细讲解如何在Delphi中实现这一功能，主要涉及以下几个方面： 1. 数据库连接与查询 在Delphi中，我们通常使用ADO (ActiveX Data Objects) 或 BDE (Borland Database Engine) 连接数据库。首先，创建一个...
一个Delphi人口普查统计 报表系统.rar
07-10
这里我们关注的是一款名为"Delphi人口普查统计报表系统"的项目，它是一个用Delphi编写的软件系统，专门用于人口数据的收集、管理和分析。这个系统包含三个主要子系统：普查登记子系统、查询统计子系统和任意报表子...
Delphi简易成绩统计系统.rar_delphi 统计
09-24
总结来说，"Delphi简易成绩统计系统"是一个使用Delphi开发的教育管理工具，主要用于记录和统计学生成绩，提供了基础的数据录入、查询和分析功能，利用Delphi的组件化开发模式和强大的数据处理能力，使得系统具有良好...
delphi 中操作 图片保存读取access数据库
java开发指南博客 【转载】
07-24 167
Sql数据库可以存放图片这是以前听过，但是一直都没相信的事情，这阵子由于工作需求，遍开始尝试存取，在网上找了很多方法，试了都是可以存，但是却始终取不出来，研究了两天，最终实现了，现将代码共享出来，大家一起探讨~ 首先目标数据库表存在一格式为image字段，开始，下面为存放的代码，表名字和字段自行修改 procedure TForm1.Button1Click(Sender: TObject);...
delphi图表控件TChart使用FAQ
masterjames的专栏
07-28 1773
delphi图表控件TChart使用FAQ     最近开发要使 用图表，Delphi里提供了图表开发的控件TChart，可惜帮助里没有DEMO代码，上网搜索了一下，竟然发现文章也少的可怜。没办法，自己丰衣足 食，写代码试用，看帮助，读代码，搞了半天大概弄明白了TChart的使用方式，下面写一下几个常见问题的解决。1.如何写一个TChart的Hello World？放一个控
Delphi中Chart组件，Chart控件用法
一切若然
05-18 3087
本文主要讲解Delphi 中Chart ,TeeChart 的属性,方法及用法.Tchart 分析报告, TeeChart 使用指南,TeeChart 控件介绍 1.AllowZoom : Boolean 是否允许鼠标拖动来缩放图表 2.AnimatedZoom : Boolean 拖动是否显示缩放过程 3.AxisVisible : Boolean 显示...
Delphi 时间格式化，动态显示时间，显示最新时间
weixin_34015336的博客
01-06 178
动态显示时间（需要Timer控制的支持，以下代码放到Timer事件中） Label1.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss' , Now); 显示当前时间(放在窗体的OnShow事件中) edit1.text:=FormatDateTime('YYYYMMDDHHMMSSZZZ',now()); ...
Delphi DBChart自定义数据显示表多行多列数据
qq_34604490的博客
02-25 416
Delphi DBChart自定义数据显示表多行多列数据
delphi chart 动态曲线图
从事厨房信息化行业，万能对接所有点餐系统，kds，智能控菜，酒店协调软件
05-12 2731
【代码】delphi chart 动态曲线图。
Unity 【Content Size Fitter】- 聊天气泡自动适配Text文本框大小
当代野生程序猿
02-25 5819
通常在展示人物对话的时候文本的长度是不定的，因此会需要动态的调整对话内容文本框的背景图片的大小，这里以如下这种气泡框的对话为例： 实现该需求涉及到的内容包括Content Size Fitter组件的使用、2D Sprite工具包的使用。 Content Size Fitter组件用于Text文本框，如图所示，我们将Horzontal Fit设为Preferred Size，当我们调整Text文本框中的内容时，其大小会自动进行调整。 注意Rect Transform中Pivot轴心点的设置
delphi tchart显示数据
最新发布
05-20
在这个例子中，我们创建了一个简单的数据源，填充了一些随机数据，并将其连接到 TChart 控件的 TLineSeries 上。在 FormCreate 事件中，我们将数据源连接到 TChart 控件并设置 X 和 Y 轴的字段。然后，我们刷新了 ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值