?? unit2.pas
字號:
SaveTable.FieldByName('備注').AsString := DBGrid1.Fields[22].Text ;
SaveTable.Append ;
//必須再增加，否則它就不會馬上寫入數據庫
SaveTable.Close ;
end;
CustomerData.FpZF.Delete ;
Application.MessageBox(PChar('發票作廢成功 ！'), PChar('提示'),MB_ICONINFORMATION);
edit1.Text :='' ;
end;
end;
except
Application.MessageBox(PChar('發票刪除出現錯誤，沒有成功作廢 ！'), PChar('發票作廢'),MB_OK +
MB_ICONINFORMATION);
end;
end;
{作廢轉產不動產發票}
procedure TForm2.ZrbdcFPZF();
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 :='ZrbdcFPZF' ;
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('建筑面積').AsString := DBGrid1.Fields[8].Text ;
SaveTable.FieldByName('單價').AsString := DBGrid1.Fields[9].Text ;
SaveTable.FieldByName('金額').AsString := DBGrid1.Fields[10].Text ;
SaveTable.FieldByName('金額大寫').AsString := DBGrid1.Fields[11].Text ;
SaveTable.FieldByName('金額合計').AsString := DBGrid1.Fields[12].Text ;
SaveTable.FieldByName('開票人').AsString := DBGrid1.Fields[13].Text ;
SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[14].Text ;
SaveTable.FieldByName('備注').AsString := DBGrid1.Fields[15].Text ;
SaveTable.Append ;
//必須再增加，否則它就不會馬上寫入數據庫
SaveTable.Close ;
end;
CustomerData.FpZF.Delete ;
Application.MessageBox(PChar('發票作廢成功 ！'), PChar('提示'),MB_ICONINFORMATION);
edit1.Text :='' ;
end;
end;
except
Application.MessageBox(PChar('發票刪除出現錯誤，沒有成功作廢 ！'), PChar('發票作廢'),MB_OK +
MB_ICONINFORMATION);
end;
end;
{作廢其它服務業產發票}
procedure TForm2.QtfwyFPZF();
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 :='QtfwyFPZF' ;
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('收費標準').AsString := DBGrid1.Fields[8].Text ;
SaveTable.FieldByName('金額').AsString := DBGrid1.Fields[9].Text ;
SaveTable.FieldByName('金額大寫').AsString := DBGrid1.Fields[10].Text ;
SaveTable.FieldByName('金額合計').AsString := DBGrid1.Fields[11].Text ;
SaveTable.FieldByName('開票人').AsString := DBGrid1.Fields[12].Text ;
SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[13].Text ;
SaveTable.FieldByName('備注').AsString := DBGrid1.Fields[14].Text ;
SaveTable.Append ;
//必須再增加，否則它就不會馬上寫入數據庫
SaveTable.Close ;
end;
CustomerData.FpZF.Delete ;
Application.MessageBox(PChar('發票作廢成功 ！'), PChar('提示'),MB_ICONINFORMATION);
edit1.Text :='' ;
end;
end;
except
Application.MessageBox(PChar('發票刪除出現錯誤，沒有成功作廢 ！'), PChar('發票作廢'),MB_OK +
MB_ICONINFORMATION);
end;
end;
{作廢轉讓無形資產發票}
procedure TForm2.ZrwxzcFPZF();
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 :='ZrwxzcFPZF' ;
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('名稱').AsString := DBGrid1.Fields[8].Text ;
SaveTable.FieldByName('金額').AsString := DBGrid1.Fields[9].Text ;
SaveTable.FieldByName('金額大寫').AsString := DBGrid1.Fields[10].Text ;
SaveTable.FieldByName('金額合計').AsString := DBGrid1.Fields[11].Text ;
SaveTable.FieldByName('開票人').AsString := DBGrid1.Fields[12].Text ;
SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[13].Text ;
SaveTable.Append ;
//必須再增加，否則它就不會馬上寫入數據庫
SaveTable.Close ;
end;
CustomerData.FpZF.Delete ;
Application.MessageBox(PChar('發票作廢成功 ！'), PChar('提示'),MB_ICONINFORMATION);
edit1.Text :='' ;
end;
end;
except
Application.MessageBox(PChar('發票刪除出現錯誤，沒有成功作廢 ！'), PChar('發票作廢'),MB_OK +
MB_ICONINFORMATION);
end;
end;
{租賃業發票作廢}
procedure TForm2.ZlyFPZF();
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 :='ZlyfpZF' ;
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('天數').AsString := DBGrid1.Fields[8].Text ;
SaveTable.FieldByName('單位').AsString := DBGrid1.Fields[9].Text ;
SaveTable.FieldByName('數量').AsString := DBGrid1.Fields[10].Text ;
SaveTable.FieldByName('收費標準').AsString := DBGrid1.Fields[11].Text ;
SaveTable.FieldByName('金額').AsString := DBGrid1.Fields[12].Text ;
SaveTable.FieldByName('金額大寫').AsString := DBGrid1.Fields[13].Text ;
SaveTable.FieldByName('金額合計').AsString := DBGrid1.Fields[14].Text ;
SaveTable.FieldByName('備注').AsString := DBGrid1.Fields[15].Text ;
SaveTable.FieldByName('開票人').AsString := DBGrid1.Fields[16].Text ;
SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[17].Text ;
SaveTable.Append ;
SaveTable.Close ;
end;
CustomerData.FpZF.Delete ;
Application.MessageBox(PChar('發票作廢成功 ！'), PChar('提示'),MB_ICONINFORMATION);
edit1.Text :='' ;
end;
end;
except
Application.MessageBox(PChar('發票刪除出現錯誤，沒有成功作廢 ！'), PChar('發票作廢'),MB_OK +
MB_ICONINFORMATION);
end;
end;
procedure TForm2.ComboBox3Exit(Sender: TObject);
begin
edit1.SetFocus ;
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
Case combobox1.ItemIndex of
0:
{建筑業發票}
begin
Fppy := 'JzyFP';
end;
1:
{其它服務業發票}
begin
Fppy := 'QtfwyFP';
end;
2:
{轉讓不動產發票}
begin
Fppy := 'ZrbdcFP';
end;
3:
{轉讓無形資產發票}
begin
Fppy := 'ZrwxzcFP';
end;
4:
{租賃業發票}
begin
Fppy := 'ZlyFP';
end;
end;
end;
procedure TForm2.ComboBox1Exit(Sender: TObject);
begin
edit1.SetFocus ;
end;
procedure TForm2.SeSkinRadioButton1Click(Sender: TObject);
begin
edit1.MaxLength := 50 ;
end;
procedure TForm2.RadioButton2Click(Sender: TObject);
begin
edit1.MaxLength := 5 ;
end;
procedure TForm2.ComboBox2Change(Sender: TObject);
begin
Case combobox1.ItemIndex of
0:
{建筑業發票}
begin
Fppy := 'JzyFP';
end;
1:
{其它服務業發票}
begin
Fppy := 'QtfwyFP';
end;
2:
{轉讓不動產發票}
begin
Fppy := 'ZrbdcFP';
end;
3:
{轉讓無形資產發票}
begin
Fppy := 'ZrwxzcFP';
end;
4:
{租賃業發票}
begin
Fppy := 'ZlyFP';
end;
end;
end;
procedure TForm2.ComboBox2Exit(Sender: TObject);
begin
edit1.SetFocus ;
end;
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
edit1.MaxLength := 0 ;
end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
edit1.MaxLength := 0 ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -