?? unit6.pas
字號(hào):
{查找轉(zhuǎn)讓無(wú)形資產(chǎn)發(fā)票}
procedure TForm6.ZrwxzcFP();
Var
{定義一個(gè)查詢的條件Where}
Tj, Tj1 : String ;
begin
try
with CustomerData do
begin
//客戶編碼
if CheckBox1.Checked then
begin
ADOQuery1.Close ;
Tj := 'Where 客戶名稱 like '+''''+'%'+edit3.Text+'%'+'''' ;
ADOQuery1.SQL.Clear ;
{Fppy為要查v詢的表名}
ADOQuery1.SQL.Add('Select * From ZrwxzcFP ') ;
ADOQuery1.SQL.Add(Tj) ;
{開始查詢}
ADOQuery1.Open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄,如果要統(tǒng)計(jì)請(qǐng)單擊上面 開始統(tǒng)計(jì) 按鈕 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end
else
begin
Tj := 'Where 日期 >= '+''''+edit1.Text+''''+' and 日期 <= '+''''+edit2.Text+'''';
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
{Fppy為要查詢的表名}
ADOQuery1.SQL.Add('Select * From ZrwxzcFP') ;
//FPTJ.SQL.Add('Select * From '+Fppy) ;
ADOQuery1.SQL.Add(Tj) ;
{開始查詢}
ADOQuery1.open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
end;
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
except
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
{查找其它服務(wù)業(yè)發(fā)票}
procedure TForm6.QtfwyFP() ;
Var
{定義一個(gè)查詢的條件Where}
Tj, Tj1 : String ;
begin
try
with CustomerData do
begin
//客戶編碼
if CheckBox1.Checked then
begin
ADOQuery1.Close ;
Tj := 'Where 客戶名稱 like '+''''+'%'+edit3.Text+'%'+'''' ;
ADOQuery1.SQL.Clear ;
{Fppy為要查v詢的表名}
ADOQuery1.SQL.Add('Select * From QtfwyFP ') ;
ADOQuery1.SQL.Add(Tj) ;
{開始查詢}
ADOQuery1.Open ;
DBGridEh1.Columns.Items[0].Field.Visible := false ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄,如果要統(tǒng)計(jì)請(qǐng)單擊上面 開始統(tǒng)計(jì) 按鈕 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end
else
begin
Tj := 'Where 日期 >= '+''''+edit1.Text+''''+' and 日期 <= '+''''+edit2.Text+'''';
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
{Fppy為要查詢的表名}
ADOQuery1.SQL.Add('Select * From QtfwyFP') ;
//FPTJ.SQL.Add('Select * From '+Fppy) ;
ADOQuery1.SQL.Add(Tj) ;
ADOQuery1.SQL.Add(Tj1) ;
{開始查詢}
ADOQuery1.open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
DBGridEh1.Columns.Items[0].Field.Visible := false ;
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
end;
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
except
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
{查找轉(zhuǎn)讓不動(dòng)產(chǎn)發(fā)票}
procedure TForm6.ZrbdcFP() ;
Var
{定義一個(gè)查詢的條件Where}
Tj, Tj1 : String ;
begin
try
with CustomerData do
begin
//客戶編碼
if CheckBox1.Checked then
begin
ADOQuery1.Close ;
Tj := 'Where 客戶名稱 like '+''''+'%'+edit3.Text+'%'+'''' ;
ADOQuery1.SQL.Clear ;
{Fppy為要查v詢的表名}
ADOQuery1.SQL.Add('Select * From ZrbdcFP ') ;
ADOQuery1.SQL.Add(Tj) ;
{開始查詢}
ADOQuery1.Open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄,如果要統(tǒng)計(jì)請(qǐng)單擊上面 開始統(tǒng)計(jì) 按鈕 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end
else
begin
Tj := 'Where 日期 >= '+''''+edit1.Text+''''+' and 日期 <= '+''''+edit2.Text+'''';
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
{Fppy為要查詢的表名}
ADOQuery1.SQL.Add('Select * From ZrbdcFP') ;
//FPTJ.SQL.Add('Select * From '+Fppy) ;
ADOQuery1.SQL.Add(Tj) ;
ADOQuery1.SQL.Add(Tj1) ;
{開始查詢}
ADOQuery1.open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
end;
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
except
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
{查找建筑業(yè)發(fā)票}
procedure TForm6.JzyFP() ;
Var
{定義一個(gè)查詢的條件Where}
Tj, Tj1 : String ;
begin
try
with CustomerData do
begin
//客戶編碼
if CheckBox1.Checked then
begin
ADOQuery1.Close ;
Tj := 'Where 客戶名稱 like '+''''+'%'+edit3.Text+'%'+'''' ;
ADOQuery1.SQL.Clear ;
{Fppy為要查v詢的表名}
ADOQuery1.SQL.Add('Select * From JzyFP ') ;
ADOQuery1.SQL.Add(Tj) ;
{開始查詢}
ADOQuery1.Prepared ;
ADOQuery1.Open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額1') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄,如果要統(tǒng)計(jì)請(qǐng)單擊上面 開始統(tǒng)計(jì) 按鈕 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end
else
begin
Tj := 'Where 日期 >= '+''''+edit1.Text+''''+' and 日期 <= '+''''+edit2.Text+'''';
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
{Fppy為要查詢的表名}
ADOQuery1.SQL.Add('Select * From JzyFP') ;
//FPTJ.SQL.Add('Select * From '+Fppy) ;
ADOQuery1.SQL.Add(Tj) ;
ADOQuery1.SQL.Add(Tj1) ;
{開始查詢}
ADOQuery1.Prepared ;
ADOQuery1.open ;
{如果沒(méi)有記錄則讓查找為可用，統(tǒng)計(jì)為不可用}
if ADOQuery1.RecordCount =0 then
begin
Application.MessageBox(PChar('對(duì)不起沒(méi)有符合條件的記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
{顯示共查找到多少條記錄}
StatusBar1.Panels[1].Text := inttostr(ADOQuery1.RecordCount);
//統(tǒng)計(jì)金額
TJJE('金額1') ;
Application.MessageBox(PChar('一共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
end;
end;
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
exit ;
except
Application.MessageBox(PChar('對(duì)不起，沒(méi)有此發(fā)票 ！'), PChar('提示'),MB_ICONINFORMATION);
end;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
PrintDBGridEh1.Preview ;
end;
procedure TForm6.N2Click(Sender: TObject);
begin
Button3Click(Sender ) ;
end;
procedure TForm6.N1Click(Sender: TObject);
begin
try
DBGridEh1.SelectedField.Visible := False ;
except
Application.MessageBox(PChar('當(dāng)前沒(méi)有數(shù)據(jù) !'),PChar('提示'),MB_ICONERROR ) ;
end;
end;
procedure TForm6.imgCloseButtonClick(Sender: TObject);
begin
close ;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -