main.~pas

安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询

       end;
    end;
  end;
  datam.setcurMiss;
  frm_mission.Caption:='选择开票单位';
  frm_mission.BitBtn1.Visible:=true;
  frm_Mission.BitBtn2.Caption:='确定';
  frm_mission.Label1.Caption:='请选择纳税人登记号：';


end;

procedure Tfrm_main.Action4Execute(Sender: TObject);
begin
  frm_missgl.ShowModal;
  datam.setcurMiss;
end;

procedure Tfrm_main.Action8Execute(Sender: TObject);
begin
  frm_mission.Caption:='开票单位信息';
  frm_mission.DBLookupComboBox1.Enabled:=true;
  frm_mission.BitBtn1.Visible:=false;
  frm_mission.BitBtn3.Visible:=false;
  frm_mission.Label1.Caption:='查询开票单位信息';
  frm_mission.ShowModal;
  frm_mission.Caption:='选择开票单位';
  frm_mission.DBLookupComboBox1.Enabled:=true;
  frm_mission.BitBtn1.Visible:=true;
  frm_Mission.BitBtn3.Visible:=true;
  frm_mission.Label1.Caption:='请选择纳税人登记号：';

end;

procedure Tfrm_main.Action9Execute(Sender: TObject);
begin
  frm_Ren.Caption:='收款人或开票人设置';
  frm_Ren.BitBtn3.Visible:=false;
  frm_Ren.ShowModal;
end;

procedure Tfrm_main.Action10Execute(Sender: TObject);
begin
  frm_about.ShowModal;
end;

procedure Tfrm_main.Action11Execute(Sender: TObject);
begin
  //客户资料管理
  frm_khgl.BitBtn7.Visible:=false;
  frm_khgl.ShowModal;
  datam.setcurMiss;
end;

procedure Tfrm_main.Action12Execute(Sender: TObject);
begin
  frm_jldw.BitBtn2.Visible:=false;
  frm_jldw.ShowModal;
  frm_jldw.BitBtn2.Visible:=true;
  if datam.jldwSet.State in [dsEdit,dsInsert] then
    datam.jldwSet.Post;
end;

procedure Tfrm_main.Action13Execute(Sender: TObject);
begin
  frm_about1.ShowModal;
end;

procedure Tfrm_main.Action14Execute(Sender: TObject);
begin
  //货物资料管理
  frm_CPgl.BitBtn7.Visible:=false;
  frm_CPgl.ShowModal;
  update;
  datam.setcurMiss;
end;

procedure Tfrm_main.Action15Execute(Sender: TObject);
begin
  frm_fpgl.ShowModal;
end;

procedure Tfrm_main.Action16Execute(Sender: TObject);
label abc;
begin
  frm_newfp.Edit1.Text:=formatdatetime('yyyy年mm月dd日hh',now);
  frm_newfp.Edit2.Text:='134000000000';
  frm_newfp.Edit3.Text:='00000001';
  frm_newfp.SpinEdit1.Value:=15;
  frm_newfp.Edit4.Text:='00000015';
  frm_newfp.Edit5.Clear;
  frm_newfp.Edit6.Clear;
  frm_newfp.Edit7.Clear;
  frm_newfp.Edit8.Clear;
  frm_newfp.Edit9.Clear;
  abc:
  if frm_newfp.ShowModal=mrOK then
  begin
    if frm_newfp.Edit1.Text='' then
    begin
      Application.MessageBox('发票购入批次编号不能为空，请重输！', '提示', 
        MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end;
    if length(trim(frm_newfp.Edit2.Text))<>12 then
    begin
      Application.MessageBox('发票代码长度应为12位，请重输！', '提示', MB_OK + 
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end;
    if frm_newfp.SpinEdit1.Value<=0 then
    begin
      Application.MessageBox('购入发票份数应大于0，请重输！', '提示', MB_OK +
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end;
    //存盘
    datam.fpkset.First;
    if datam.fpkset.Locate('inputno',frm_newfp.Edit1.Text,[]) then
    begin
      Application.MessageBox('发票购入批次重复，请重输！', '提示', MB_OK + 
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end;
    datam.fpkset.Append;
    datam.fpksettaxNo.AsString:=kpxx.Cur_TaxNo;
    datam.fpksetinputno.AsString:=frm_newfp.Edit1.Text;
    datam.fpksetFPcode.AsString:=frm_newfp.Edit2.Text;
    datam.fpksetbeginNo.AsString:=frm_newfp.Edit3.Text;
    datam.fpksetFPfs.AsInteger:=frm_newfp.SpinEdit1.Value;
    datam.fpksetendNo.AsString:=frm_newfp.Edit4.Text;
    datam.fpksetCurNo.AsString:=frm_newfp.Edit3.Text;
    datam.fpksetykfs.AsInteger:=0;
    datam.fpksetzffs.AsInteger:=0;
    datam.fpksetjffs.AsInteger:=0;
    datam.fpksetsyfs.AsInteger:=frm_newfp.SpinEdit1.Value;
    datam.fpkset.Post;
  end;
end;

procedure Tfrm_main.Action17Execute(Sender: TObject);
begin
  frm_newfp.Caption:='发票使用信息';
  frm_newfp.BitBtn2.Visible:=false;
  frm_newfp.GroupBox1.Enabled:=false;
  frm_newfp.Label9.Visible:=false;
  frm_newfp.Edit1.Text:=datam.fpksetinputno.AsString;
  frm_newfp.Edit2.Text:=datam.fpksetFPcode.AsString;
  frm_newfp.Edit3.Text:=datam.fpksetbeginNo.AsString;
  frm_newfp.SpinEdit1.Value:=datam.fpksetFPfs.AsInteger;
  frm_newfp.Edit4.Text:=datam.fpksetendNo.AsString;
  frm_newfp.edit5.Text:=datam.fpksetCurNo.AsString;
  frm_newfp.Edit6.Text:=datam.fpksetykfs.AsString;
  frm_newfp.Edit7.Text:=datam.fpksetjffs.AsString;
  frm_newfp.Edit8.Text:=datam.fpksetsyfs.AsString;
  frm_newfp.Edit9.Text:=datam.fpksetzffs.AsString;
  frm_newfp.ShowModal;
  frm_newfp.Label9.Visible:=true;
  frm_newfp.GroupBox1.Enabled:=true;
  frm_newfp.BitBtn2.Visible:=true;
  frm_newfp.Caption:='发票新增(购入发票)';
end;

procedure Tfrm_main.FormShow(Sender: TObject);
begin
  if tag=0 then
  begin
    tag:=tag+1;
    
    datam.loadkpxxfj;
    
    if frm_Mission.ShowModal=mrOK then
    begin
      datam.loadkpxx;
      showkpxx;
    end else
    begin
      tag:=-1; //首次运行程序登录时取消，结束程序运行标志
      close;
    end;

  end;

end;

procedure Tfrm_main.Action18Execute(Sender: TObject);
var hjje:real;
begin
  datam.setcurMiss;
  frm_fpFilter.RadioGroup1.ItemIndex:=2;
  frm_fpFilter.RadioGroup1.Enabled:=false;
  if datam.setfpfilter then
  begin
    hjje:=datam.kpkSethjje.AsFloat;
    if (formatfloat('0.00',hjje)='0.00') or
       (datam.kpkSet.RecordCount=0) then
    begin
      Datam.Cancelfilter;
      Application.MessageBox(PChar('没有符合条件的发票，按确定后返回！'),
        PChar('提示'), MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
      exit;
    end;
    frm_kpset.StatusBar1.Panels[0].Text:='作废';
    frm_kpset.ToolButton3.Enabled:=false;
    frm_kpset.ToolButton4.Enabled:=true;
    frm_kpset.ToolButton6.Enabled:=False;
    frm_kpset.ToolButton7.Enabled:=False;
    frm_kpset.ToolButton8.Enabled:=False;

    frm_kpset.ShowModal;
    datam.Cancelfilter;
  end;
end;

procedure Tfrm_main.Action19Execute(Sender: TObject);
var hjje:real;
begin
  datam.setcurMiss;
  frm_fpFilter.RadioGroup1.Enabled:=true;
  if datam.setfpfilter then
  begin
    hjje:=datam.kpkSethjje.AsFloat;
    if (formatfloat('0.00',hjje)='0.00') or
       (datam.kpkSet.RecordCount=0) then
    begin
      Datam.Cancelfilter;
      Application.MessageBox(PChar('没有符合条件的发票，按确定后返回！'),
        PChar('提示'), MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
      exit;
    end;
    frm_kpset.StatusBar1.Panels[0].Text:='查询';
    frm_kpset.ToolButton3.Enabled:=true;
    frm_kpset.ToolButton4.Enabled:=False;
    frm_kpset.ToolButton6.Enabled:=true;
    frm_kpset.ToolButton7.Enabled:=true;
    frm_kpset.ToolButton8.Enabled:=true;
    frm_kpset.ShowModal;
    datam.Cancelfilter;
  end;
end;

procedure Tfrm_main.Action20Execute(Sender: TObject);
var fs1,fs2,fs3,fs4,fs5,fs6,fs7,fs8,fs9:integer;
    je1,je2,je3,je4,je5,je6,je7,je8,je9:double;
    se1,se2,se3,se4,se5,se6,se7,se8,se9:double;
    sl:integer;
    je,se:double;
    Abz:boolean;
    Astr:string;
begin
  astr:='#,##0.00;-#,##0.00;'+#39+#39;
//  Abz:=false;
//  sl:=0;
//  je:=0.00;se:=0.00;
  fs1:=0; je1:=0.00; se1:=0.00;
  fs2:=0; je2:=0.00; se2:=0.00;
  fs3:=0; je3:=0.00; se3:=0.00;
  fs4:=0; je4:=0.00; se4:=0.00;
  fs5:=0; je5:=0.00; se5:=0.00;
  fs6:=0; je6:=0.00; se6:=0.00;
  fs7:=0; je7:=0.00; se7:=0.00;
  fs8:=0; je8:=0.00; se8:=0.00;
  fs9:=0; je9:=0.00; se9:=0.00;
  datam.setcurMiss;
  frm_fpFilter.RadioGroup1.ItemIndex:=0;
  frm_fpFilter.RadioGroup1.Enabled:=false;
  frm_fpfilter.CheckBox1.Checked:=true;
  frm_fpfilter.CheckBox2.Checked:=false;
  frm_fpfilter.CheckBox2.Enabled:=false;
  frm_fpfilter.SpinEdit1.Enabled:=true;
  frm_fpfilter.ComboBox1.Enabled:=true;
  frm_fpfilter.Edit1.Enabled:=false;
  frm_fpfilter.SpinEdit2.Enabled:=false;
  if datam.setfpfilter then
  begin
    datam.kpkSet.DisableControls;
    datam.kpkSet.First;
    while not datam.kpkSet.Eof do
    begin
      Abz:=datam.kpkSetCancel.AsBoolean;
      sl:=datam.kpkSetrate.AsInteger;
      je:=datam.kpkSethjje.AsFloat;
      fs1:=fs1+1;
      je1:=je1+je;
      se1:=se1+round(je*sl)/100;
      if abz then
      begin
        fs2:=fs2+1;
        je2:=je2+je;
        se2:=se2+round(je*sl)/100;
      end
      else begin
        fs3:=fs3+1;
        je3:=je3+je;
        se3:=se3+round(je*sl)/100;
        if je>0 then
        begin
          fs4:=fs4+1;
          je4:=je4+je;
          se4:=se4+round(je*sl)/100;
        end
        else begin
          fs5:=fs5+1;
          je5:=je5+je;
          se5:=se5+round(je*sl)/100;
        end;
        case sl of
          17 : begin
                fs6:=fs6+1;
                je6:=je6+je;
                se6:=se6+round(je*sl)/100;
               end;
          13 : begin
                fs7:=fs7+1;
                je7:=je7+je;
                se7:=se7+round(je*sl)/100;
               end;
           6 : begin
                fs8:=fs8+1;
                je8:=je8+je;
                se8:=se8+round(je*sl)/100;
               end;
        else ;
          fs9:=fs9+1;
          je9:=je9+je;
          se9:=se9+round(je*sl)/100;
        end;
      end;
      datam.kpkSet.Next;
    end;
    datam.kpkSet.First;
    datam.kpkSet.EnableControls;
    rep_tjb.qlb_dwmc.Caption:=kpxx.Cur_Dwmc;
    rep_tjb.qlb_ny.Caption:=formatdatetime('yyyy年mm月份',datam.kpkSetkpDate.AsDateTime);
    Rep_tjb.qlb_fs1.Caption:=inttostr(fs1);
    Rep_tjb.qlb_fs2.Caption:=inttostr(fs2);
    Rep_tjb.qlb_fs3.Caption:=inttostr(fs3);
    Rep_tjb.qlb_fs4.Caption:=inttostr(fs4);
    Rep_tjb.qlb_fs5.Caption:=inttostr(fs5);
    Rep_tjb.qlb_fs6.Caption:=inttostr(fs6);
    Rep_tjb.qlb_fs7.Caption:=inttostr(fs7);
    Rep_tjb.qlb_fs8.Caption:=inttostr(fs8);
    Rep_tjb.qlb_fs9.Caption:=inttostr(fs9);
    rep_tjb.qlb_je1.Caption:=formatfloat(Astr,je1);
    rep_tjb.qlb_je2.Caption:=formatfloat(Astr,je2);
    rep_tjb.qlb_je3.Caption:=formatfloat(Astr,je3);
    rep_tjb.qlb_je4.Caption:=formatfloat(Astr,je4);
    rep_tjb.qlb_je5.Caption:=formatfloat(Astr,je5);
    rep_tjb.qlb_je6.Caption:=formatfloat(Astr,je6);
    rep_tjb.qlb_je7.Caption:=formatfloat(Astr,je7);
    rep_tjb.qlb_je8.Caption:=formatfloat(Astr,je8);
    rep_tjb.qlb_je9.Caption:=formatfloat(Astr,je9);
//    rep_tjb.qlb_se1.Caption:=formatfloat(Astr,se1);
//    rep_tjb.qlb_se2.Caption:=formatfloat(Astr,se2);
    rep_tjb.qlb_se3.Caption:=formatfloat(Astr,se3);
    rep_tjb.qlb_se4.Caption:=formatfloat(Astr,se4);
    rep_tjb.qlb_se5.Caption:=formatfloat(Astr,se5);
    rep_tjb.qlb_se6.Caption:=formatfloat(Astr,se6);
    rep_tjb.qlb_se7.Caption:=formatfloat(Astr,se7);
    rep_tjb.qlb_se8.Caption:=formatfloat(Astr,se8);
    rep_tjb.qlb_se9.Caption:=formatfloat(Astr,se9);

    Rep_tjb.PreviewModal;
  end;
  frm_fpFilter.RadioGroup1.Enabled:=true;
  frm_fpfilter.CheckBox2.Enabled:=true;
  frm_fpfilter.Edit1.Enabled:=true;
  frm_fpfilter.SpinEdit2.Enabled:=true;
end;

procedure Tfrm_main.Action21Execute(Sender: TObject);
begin
  frm_option.CheckBox1.Checked:=kpxx.b01;
  frm_option.CheckBox2.Checked:=kpxx.b02;
  frm_option.CheckBox3.Checked:=kpxx.b03;
  frm_option.CheckBox4.Checked:=kpxx.b04;
  frm_option.CheckBox5.Checked:=kpxx.b05;
  frm_option.CheckBox6.Checked:=kpxx.b06;
  frm_option.CheckBox7.Checked:=kpxx.b07;
  if frm_option.ShowModal=mrOk then
  begin
    kpxx.b01:=frm_option.CheckBox1.Checked;
    kpxx.b02:=frm_option.CheckBox2.Checked;
    kpxx.b03:=frm_option.CheckBox3.Checked;
    kpxx.b04:=frm_option.CheckBox4.Checked;
    kpxx.b05:=frm_option.CheckBox5.Checked;
    kpxx.b06:=frm_option.CheckBox6.Checked;
    kpxx.b07:=frm_option.checkbox7.checked;
  end;
end;

procedure Tfrm_main.Action23Execute(Sender: TObject);
begin
Application.MessageBox(PChar('保留功能，需要者请与软件设计人员联系！' + #13#10
  + '电话：[phone]'), PChar('提示'), MB_OK + MB_ICONINFORMATION +
  MB_TOPMOST);
end;

procedure Tfrm_main.Action22Execute(Sender: TObject);
var nf,yf,nnf,nyf:integer;
begin
  datam.setcurMiss;
  frm_fpfilter.Label1.Caption:='开票单位税号：'+kpxx.Cur_TaxNo;
  frm_fpfilter.Label2.Caption:='开票单位名称：'+kpxx.Cur_Dwmc;
  frm_fpFilter.RadioGroup1.ItemIndex:=2;
  frm_fpFilter.RadioGroup1.Enabled:=false;
  if frm_fpfilter.ShowModal=mrOk then
  begin
    update;
    nf:=frm_fpfilter.SpinEdit1.Value;
    yf:=frm_fpfilter.ComboBox1.ItemIndex+1;
    if yf=12 then
    begin
      nnf:=nf+1;
      nyf:=1;
    end
    else begin
      nnf:=nf;
      nyf:=yf+1;
    end;
    datam.ADODataSet1.CommandText:=pchar('select  XMMC, XMGG, XMDW, sum(XMSL) as xmsl, sum(XMJE) as xmje '+
      'from V_kpmx where taxno="'+kpxx.Cur_TaxNo+'" and kpdate>=#'+
      inttostr(nf)+'-'+inttostr(yf)+'-1# and kpDate<#'+
      inttostr(nnf)+'-'+inttostr(nyf)+'-1# group by xmmc,xmgg,xmdw order by xmmc,xmgg,xmdw');
    datam.ADODataSet1.Open;
    Rep_hwqd.qlb_dwmc.Caption:=kpxx.Cur_Dwmc;
    Rep_hwqd.qlb_ny.Caption:=inttostr(nf)+'年'+inttostr(yf)+'月份';
    Rep_hwqd.PreviewModal;
    datam.ADODataSet1.Close;
  end;

end;

procedure Tfrm_main.Action24Execute(Sender: TObject);
begin
Application.MessageBox(PChar('请查询帮助手册！'), PChar('提示'), MB_OK + 
  MB_ICONINFORMATION + MB_TOPMOST);
  
end;

end.