?? bm_priu.pas
字號:
procedure TBM_PRIF.DBGrid3DblClick(Sender: TObject);
begin
canmodify:=true;
BM_PRIF_ADDF := TBM_PRIF_ADDF.Create(Application);
BM_PRIF_ADDF.Caption :='打印紙修改';
BM_PRIF_ADDF.CB1.Text :=AQ1.FieldByName('型號').AsString ;
BM_PRIF_ADDF.edit2.Text :=AQ1.FieldByName('支出數量').AsString ;
BM_PRIF_ADDF.CB2.Text :=AQ1.FieldByName('支出部門').AsString ;
BM_PRIF_ADDF.CB3.Text :=AQ1.FieldByName('支出人').AsString ;
BM_PRIF_ADDF.edit1.Text :=AQ1.FieldByName('支出時間').AsString ;
BM_PRIF_ADDF.edit3.Text :=AQ1.FieldByName('經辦人').AsString ;
BM_PRIF_ADDF.memo1.Text :=AQ1.FieldByName('備注').AsString ;
BM_PRIF_ADDF.edit5.Text := BM_PRIF.AQ1.FieldByName('編號').Asstring ;
BM_PRIF_ADDF.Show ;
end;
procedure TBM_PRIF.BitBtn6Click(Sender: TObject);
var
DTmp:integer;
begin
if AQ1.RecordCount >0 then
begin
DTmp:=AQ1.FieldByName('編號').AsInteger ;
if MessageBox(0, '你確定刪除該條記錄', '提示', MB_YESNO + MB_ICONQUESTION) =IDYES then
begin
with DM.QALL3 do
begin
close;
sql.Clear ;
sql.Add('delete from 打印紙支出 where 編號 ='+inttostr(DTmp));
ExecSQL;
end;
end;
AQ1.Close ;
aq1.Open ;
if AQ1.RecordCount =0 then SpeedButton8.Enabled :=false;
end
ELSE
BEGIN
showmessage('沒有要刪除的數據!');
SpeedButton8.Enabled :=false;
exit;
end;
end;
procedure TBM_PRIF.SpeedButton10Click(Sender: TObject);
begin
close;
end;
procedure TBM_PRIF.SpeedButton8Click(Sender: TObject);
var
DTmp:integer;
begin
TabbedNotebook2.PageIndex :=0;
if AQ1.RecordCount >0 then
begin
DTmp:=AQ1.FieldByName('編號').AsInteger ;
if MessageBox(0, '你確定刪除該條記錄', '提示', MB_YESNO + MB_ICONQUESTION) =IDYES then
begin
with DM.QALL3 do
begin
close;
sql.Clear ;
sql.Add('delete from 打印紙支出 where 編號 ='+inttostr(DTmp));
ExecSQL;
end;
end;
AQ1.Close ;
aq1.Open ;
if AQ1.RecordCount =0 then SpeedButton8.Enabled :=false;
end
ELSE
BEGIN
showmessage('沒有要刪除的數據!');
SpeedButton8.Enabled :=false;
exit;
end;
end;
procedure TBM_PRIF.SpeedButton7Click(Sender: TObject);
begin
try
canmodify:=false;
BM_PRIF_ADDF := TBM_PRIF_ADDF.Create(Application);
BM_PRIF_ADDF.Caption :='打印紙支出';
BM_PRIF_ADDF.SHOW;
except
MessageBox(0, '窗體創建錯誤', '產生嚴重例外錯誤', MB_OK +
MB_ICONSTOP);
end;
end;
procedure TBM_PRIF.SpeedButton6Click(Sender: TObject);
var
date1,date2:tdate;
begin
SpeedButton8.Enabled :=false;
sqltext:='select * from 打印紙支出';
sqltext2:='select 型號,sum(支出數量) as AA ,支出部門 from 打印紙支出';
if cb1.Text <>'' then
begin
sqltext:=sqltext+ ' where 支出部門="'+CB1.Text +'"';
sqltext2:=sqltext2+ ' where 支出部門="'+CB1.Text +'"';
if cb2.Text <>'' then
begin
sqltext:=sqltext+ ' And 型號="'+CB2.Text +'"';
sqltext2:=sqltext2+ ' And 型號="'+CB2.Text +'"';
end;
if checkbox1.Checked then
begin
sqltext:=sqltext+' And 支出時間 >=:date1 and 支出時間<=:date2';
sqltext2:=sqltext2+' And 支出時間 >=:date1 and 支出時間<=:date2';
end;
end
else
if cb2.Text <>'' then
begin
sqltext:=sqltext+ ' where 型號="'+CB2.Text +'"';
sqltext2:=sqltext2+ ' where 型號="'+CB2.Text +'"';
if checkbox1.Checked then
begin
sqltext:=sqltext+' And 支出時間 >=:date1 and 支出時間<=:date2';
sqltext2:=sqltext2+' And 支出時間 >=:date1 and 支出時間<=:date2';
end;
end
else
begin
if checkbox1.Checked then
begin
sqltext:=sqltext+' where 支出時間 >=:date1 and 支出時間<=:date2';
sqltext2:=sqltext2+' where 支出時間 >=:date1 and 支出時間<=:date2';
end;
end;
sqltext:=sqltext+' order by 型號';
with AQ1 do
begin
with sql do
begin
close;
clear;
add(sqltext);
if checkbox1.Checked then
begin
Parameters.parambyname('Date1').value:=dp1.datetime;//strtodate(MaskEdit1.Text);
Parameters.parambyname('Date2').value:=dp2.DateTime;//(MaskEdit2.Text);
end;
end;
open;
if aq1.RecordCount >0 then SpeedButton8.Enabled :=true;
end;
///////////////////
sqltext2:=sqltext2+' group by 型號,支出部門';
sqltext2:=sqltext2+' order by 支出部門';
with DM.QALL2 do
begin
with sql do
begin
close;
clear;
add(sqltext2);
if checkbox1.Checked then
begin
Parameters.parambyname('Date1').value:=dp1.datetime;//strtodate(MaskEdit1.Text);
Parameters.parambyname('Date2').value:=dp2.DateTime;//(MaskEdit2.Text);
end;
end;
open;
if DM.QALL2.RecordCount >0 then SpeedButton8.Enabled :=true;
end;
BM_OFFICEF.StatusBar1.Panels[0].TEXT :='系統提示:符合條件記錄為'+inttostr(AQ1.RecordCount)+'條！';
end;
procedure TBM_PRIF.SpeedButton9Click(Sender: TObject);
begin
dm.DAYINZHI.Refresh ;
end;
procedure TBM_PRIF.cb3DropDown(Sender: TObject);
var i:integer;
begin
CB3.Items.Clear ;
WITH DM.QALL do
begin
close;
sql.Clear ;
sql.Add('select distinct 型號 from 打印紙');
open;
first;
end;
for i:=0 to DM.QALL.RecordCount-1 do
begin
CB3.Items.Add(DM.QALL.Fields[0].asstring);
DM.QALL.next;
end;
end;
procedure TBM_PRIF.cb4DropDown(Sender: TObject);
var i:integer;
begin
CB4.Items.Clear ;
WITH DM.QALL3 do
begin
close;
sql.Clear ;
sql.Add('select distinct 廠商 from 打印紙');
open;
first;
end;
for i:=0 to DM.QALL3.RecordCount-1 do
begin
CB4.Items.Add(DM.QALL3.Fields[0].asstring);
DM.QALL3.next;
end;
end;
procedure TBM_PRIF.SpeedButton1Click(Sender: TObject);
var
date1,date2:tdate;
begin
SpeedButton3.Enabled :=false;
sqltext:='select * from 打印紙';
//sqltext2:='select 型號,sum(支出數量) as AA from 打印紙';
if cb3.Text <>'' then
begin
sqltext:=sqltext+ ' where 型號="'+CB3.Text +'"';
// sqltext2:=sqltext2+ ' where 支出部門="'+CB1.Text +'"';
if cb4.Text <>'' then
begin
sqltext:=sqltext+ ' And 廠商="'+CB4.Text +'"';
// sqltext2:=sqltext2+ ' And 型號="'+CB2.Text +'"';
end;
if checkbox2.Checked then
begin
sqltext:=sqltext+' And 進貨時間 >=:date1 and 進貨時間<=:date2';
// sqltext2:=sqltext2+' And 支出時間 >=:date1 and 支出時間<=:date2';
end;
end
else
if cb4.Text <>'' then
begin
sqltext:=sqltext+ ' where 廠商="'+CB4.Text +'"';
// sqltext2:=sqltext2+ ' where 型號="'+CB2.Text +'"';
if checkbox2.Checked then
begin
sqltext:=sqltext+' And 進貨時間 >=:date1 and 進貨時間<=:date2';
// sqltext2:=sqltext2+' And 支出時間 >=:date1 and 支出時間<=:date2';
end;
end
else
begin
if checkbox2.Checked then
begin
sqltext:=sqltext+' where 進貨時間 >=:date1 and 進貨時間<=:date2';
//sqltext2:=sqltext2+' where 支出時間 >=:date1 and 支出時間<=:date2';
end;
end;
//sqltext:=sqltext+' order by 型號';
with AQ2 do
begin
with sql do
begin
close;
clear;
add(sqltext);
if checkbox2.Checked then
begin
Parameters.parambyname('Date1').value:=dp3.datetime;//strtodate(MaskEdit1.Text);
Parameters.parambyname('Date2').value:=dp4.DateTime;//(MaskEdit2.Text);
end;
end;
open;
if aq2.RecordCount >0 then SpeedButton3.Enabled :=true;
end;
///////////////////
// sqltext2:=sqltext2+' group by 型號';
{ with DM.QALL2 do
begin
with sql do
begin
close;
clear;
add(sqltext2);
if checkbox1.Checked then
begin
Parameters.parambyname('Date1').value:=dp1.datetime;//strtodate(MaskEdit1.Text);
Parameters.parambyname('Date2').value:=dp2.DateTime;//(MaskEdit2.Text);
end;
end;
open;
if DM.QALL2.RecordCount >0 then SpeedButton8.Enabled :=true;
end; }
BM_OFFICEF.StatusBar1.Panels[0].TEXT :='系統提示:符合條件記錄為'+inttostr(AQ2.RecordCount)+'條！';
end;
procedure TBM_PRIF.DBGrid4DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
With DbGrid4 do
begin
if ((State = [gdSelected]) or (State = [gdSelected,gdFocused])) then
begin
Canvas.Font.Color := clYellow;
Canvas.Brush.Color := clNavy;
end
else
begin
if DataCol mod 2 <> 0 then Canvas.Brush.Color := clWhite
else Canvas.Brush.Color := $00EAEAEA;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -