?? unit2.pas

?? 發票套打功能
?? PAS
?? 第 1 頁 / 共 3 頁
字號:
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  ;
?? 文件大小 4133 K
?? 上傳用戶 KMPlayer33
?? 所屬分類其他數據庫
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit2.pas

?? 快捷鍵說明
