?? main_query_ckjhmx.pas
字號:
unit MAIN_QUERY_CKJHMX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MAIN_QUERY, DB, DBTables, ComCtrls, StdCtrls, TFlatComboBoxUnit,
TFlatSpeedButtonUnit, Grids, DBGrids, DsFancyButton, ExtCtrls,myself,frmmain;
type
TFrm_main_query_ckjhmx = class(TFrm_main_query)
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SB_queryClick(Sender: TObject);
procedure SB_printClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_main_query_ckjhmx: TFrm_main_query_ckjhmx;
implementation
uses PRINT_TEMP, PRINT_CKJHMX;
{$R *.dfm}
procedure TFrm_main_query_ckjhmx.FormCreate(Sender: TObject);
begin
inherited;
self.Caption :='倉庫進貨明細';
with query_temp do
begin
close;
sql.Clear ;
sql.Text :='select name from depot where setid=999 and type="內部"';
open;
CB_depot.Items.Clear ;
CB_depot.Style :=csDropDownList;
while not eof do
begin
CB_depot.Items.add(fieldbyname('name').asstring);
next;
end;
close;
end;
end;
procedure TFrm_main_query_ckjhmx.FormShow(Sender: TObject);
begin
inherited;
SB_query.Click ;
end;
procedure TFrm_main_query_ckjhmx.SB_queryClick(Sender: TObject);
begin
inherited;
if not Checkrights(USERRIGHTS,'查看') then
begin
messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
exit;
end;
with query_data do
begin
close;
sql.Clear ;
sql.Text :=' SELECT Depot.NAME Depotname,Stockrecord.MYDATE,Goodsmessage.NAME goodsname,'
+' Goodsmessage.TYPE, Goodsmessage.UNIT, (Stockrecord.NUMBER) NUMBER,(Stockrecord.PRICE) JHDJ,'
+' ( Stockrecord.NUMBER * Stockrecord.PRICE ) PRICE,Stockrecord.MEMO'
+' FROM Stockrecord'
+' INNER JOIN Depot ON (Stockrecord.DEPOTID = Depot.ID)'
+' INNER JOIN Goodsmessage'
+' ON (Stockrecord.GOODSID = Goodsmessage.ID)'
+' WHERE (DEPOT.type="內部")'
+' AND (Stockrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
+' AND (Stockrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
+' UNION ALL'
+' SELECT Depot.NAME Depotname,Threcord.MYDATE,Goodsmessage.NAME goodsname,'
+' Goodsmessage.TYPE, Goodsmessage.UNIT, (0-Threcord.NUMBER) NUMBER,(Threcord.PRICE) JHDJ,'
+' ( (0 - Threcord.NUMBER) * Threcord.PRICE ) PRICE,Threcord.MEMO'
+' FROM Threcord'
+' INNER JOIN Depot ON (Threcord.DEPOTID = Depot.ID)'
+' INNER JOIN Goodsmessage'
+' ON (Threcord.GOODSID = Goodsmessage.ID)'
+' WHERE (DEPOT.type="內部")'
+' AND (Threcord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
+' AND (Threcord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
+' ORDER BY Depot.NAME,MYDATE';
try
open;
except
messagedlg(Errormsg0001+'0010+0012+0020+0025',mtError,[mbok],0);
close;
end;
end;
end;
procedure TFrm_main_query_ckjhmx.SB_printClick(Sender: TObject);
begin
inherited;
try
Application.CreateForm(TFrm_print_ckjhmx, Frm_print_ckjhmx);
Application.CreateForm(TFrm_print_temp, Frm_print_temp);
except
messagedlg(Errormsg0011,mtError,[mbok],0);
exit;
end;
Frm_print_ckjhmx.QuickRep_ckjhmx.preview;
Frm_print_ckjhmx.Free ;
Frm_print_temp.Free ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -