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

📄 unit2.pas

📁 发票套打功能
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
try
   with CustomerData do
   begin
     //发票号码
     if Radiobutton1.Checked then
     begin
        //它的意思是模糊查询
        //Tj := 'Where 发票号码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        //完全
        Tj := 'Where 发票号码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrbdcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     //客户名称
     if Radiobutton2.Checked then
     begin
        //Tj := 'Where 客户编码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        Tj := 'Where 客户编码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrbdcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     //客户名称
     if Radiobutton3.Checked then
     begin
        Tj := 'Where 卖方名称 like'+''''+'%'+edit1.Text+'%'+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrbdcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
   end;
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
     exit ;
except
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
{查询其它服务业发票}
procedure TForm2.QtfwyFP();
Var
  {定义一个查询的条件Where}
  Tj : String ;
begin
try
   with CustomerData do
   begin
     //发票号码
     if Radiobutton1.Checked then
     begin
        //它的意思是模糊查询
        //Tj := 'Where 发票号码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        //完全
        Tj := 'Where 发票号码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From QtfwyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     //客户名称
     if Radiobutton2.Checked then
     begin
        //Tj := 'Where 客户编码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        Tj := 'Where 客户编码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From QtfwyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     if Radiobutton3.Checked then
     begin
        Tj := 'Where 客户名称 like'+''''+'%'+edit1.Text+'%'+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From QtfwyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
   end;
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
     exit ;
except
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
{查询转让无形资产发票}
procedure TForm2.ZrwxzcFP();
Var
  {定义一个查询的条件Where}
  Tj : String ;
begin
try
   with CustomerData do
   begin
     //发票号码
     if Radiobutton1.Checked then
     begin
        //它的意思是模糊查询
        //Tj := 'Where 发票号码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        //完全
        Tj := 'Where 发票号码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrwxzcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     //客户名称
     if Radiobutton2.Checked then
     begin
        //Tj := 'Where 客户编码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        Tj := 'Where 客户编码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrwxzcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     //客户名称
     if Radiobutton3.Checked then
     begin
        Tj := 'Where 客户名称 like'+''''+'%'+edit1.Text+'%'+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZrwxzcFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
   end;
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
     exit ;
except
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
//查找租赁业发票
procedure TForm2.Zlyfp();
Var
  {定义一个查询的条件Where}
  Tj : String ;
begin
try
   with CustomerData do
   begin
     //发票号码
     if Radiobutton1.Checked then
     begin
        //Tj := 'Where 发票号码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        Tj := 'Where 发票号码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZlyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     if Radiobutton2.Checked then
     begin
        //Tj := 'Where 客户编码 like'+'"'+'%'+edit1.Text+'%'+'"' ;
        Tj := 'Where 客户编码 ='+''''+edit1.Text+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZlyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
     if Radiobutton3.Checked then
     begin
        Tj := 'Where 承租方 like'+''''+'%'+edit1.Text+'%'+'''' ;
        FpZF.close;
        FpZF.SQL.Clear ;
        {Fppy为要查询的表名}
        FpZF.SQL.Add('Select * From ZlyFP') ;
        FpZF.SQL.Add(Tj) ;
        {开始查询}
        FpZF.Open ;
        exit ;
     end;
   end;
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
     exit ;
except
     Application.MessageBox(PChar('对不起，没有此发票  ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Radiobutton1.Checked then
     //只能输入数字
     if not ( Key in ['0'..'9',#13,#8]) then Key := #0;
end;

procedure TForm2.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if edit1.Text ='请输入查询条件' then
       edit1.Text :='' ;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
try
  if ComboBox1.Text ='租赁业发票' then
  begin
    {租赁业发票作废}
    ZlyFPZF;
    exit ;
  end;
  if ComboBox1.Text ='转让无形资产发票' then
  begin
    {作废转让无形资产发票}
    ZrwxzcFPZF;
    exit ;
  end;
  if ComboBox1.Text ='其它服务业发票' then
  begin
    {作废其它服务业产发票}
    QtfwyFPZF;
    exit ;
  end;
  if ComboBox1.Text ='转让不动产发票' then
  begin
    {作废转产不动产发票}
    ZrbdcFPZF;
    exit ;
  end;
  if ComboBox1.Text ='建筑业发票' then
  begin
    {作废建筑业发票}
    JzyFPZF;
    exit ;
  end;
except
     Application.MessageBox(PChar('发票作废出现错误，请先选中数据再按作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;
{作废建筑业发票}
procedure TForm2.JzyFPZF();
Var
   {到底是以发票号码还是以客户编码来删除}
   Scfp : String ;
begin
try
    {开始删除原来的记录}
    with CustomerData do
    begin
     if application.MessageBox('是否真的把此发票作废?', '发票作废', MB_YESNO +
      MB_ICONWARNING + MB_TOPMOST) = 6 then
     begin
   {删除就是把原来的记录转移到另外的表中去}
   with CustomerData do
   begin
      SaveTable.Close ;
      {原来的表名加  ZF  以后就成功为报废的表了}
      SaveTable.TableName :='JzyFPZF' ;
      SaveTable.open;
      SaveTable.First ;
      SaveTable.Append ;
      SaveTable.FieldByName('发票号码').AsString := DBGrid1.Fields[0].Text  ;
      SaveTable.FieldByName('付款单位').AsString   := DBGrid1.Fields[1].Text ;
      SaveTable.FieldByName('客户编码').AsString := DBGrid1.Fields[2].Text  ;
      SaveTable.FieldByName('客户名称').AsString := DBGrid1.Fields[3].Text ;
      SaveTable.FieldByName('日期').AsString     := DBGrid1.Fields[4].Text  ;
      SaveTable.FieldByName('工程名称').AsString := DBGrid1.Fields[5].Text  ;
      SaveTable.FieldByName('工程类别').AsString := DBGrid1.Fields[6].Text  ;
      SaveTable.FieldByName('施工地点').AsString := DBGrid1.Fields[7].Text  ;
      SaveTable.FieldByName('工程项目及内容1').AsString     := DBGrid1.Fields[8].Text  ;
      SaveTable.FieldByName('单位1').AsString     := DBGrid1.Fields[9].Text  ;
      SaveTable.FieldByName('数量1').AsString     := DBGrid1.Fields[10].Text  ;
      SaveTable.FieldByName('单价1').AsString := DBGrid1.Fields[11].Text  ;
      SaveTable.FieldByName('金额1').AsString     := DBGrid1.Fields[12].Text  ;
      SaveTable.FieldByName('工程项目及内容2').AsString := DBGrid1.Fields[13].Text  ;
      SaveTable.FieldByName('单位2').AsString := DBGrid1.Fields[14].Text  ;
      SaveTable.FieldByName('数量2').AsString := DBGrid1.Fields[15].Text  ;
      SaveTable.FieldByName('单价2').AsString     := DBGrid1.Fields[16].Text  ;
      SaveTable.FieldByName('金额2').AsString     := DBGrid1.Fields[17].Text  ;
      SaveTable.FieldByName('金额大写').AsString := DBGrid1.Fields[18].Text  ;
      SaveTable.FieldByName('金额合计').AsString     := DBGrid1.Fields[19].Text  ;
      SaveTable.FieldByName('开票人').AsString := DBGrid1.Fields[20].Text  ;
      SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[21].Text  ;
123

⌨️ 快捷键说明

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