?? unit_query_xs.~pas
字號:
unit Unit_query_xs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit_jc_child, RM_class, RM_dset, RM_dbset, DB, ADODB, Grids,
DBGrids, StdCtrls, Mask, ToolEdit, Buttons, ExtCtrls;
type
Tform_query_xs = class(TForm_jc_child)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
Label6: TLabel;
Label5: TLabel;
Label7: TLabel;
Label1: TLabel;
Label8: TLabel;
BitBtn_find: TBitBtn;
BitBtn_quit: TBitBtn;
DateEdit_begin: TDateEdit;
DateEdit_end: TDateEdit;
Edit_jhdh: TEdit;
Edit_gys: TEdit;
Edit_ywy: TEdit;
Edit_czy: TEdit;
ComboBox_fkfs: TComboBox;
BitBtn_print: TBitBtn;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
RMDBDataSet1: TRMDBDataSet;
RMReport1: TRMReport;
Label10: TLabel;
Edit_je: TEdit;
SpeedButton1: TSpeedButton;
procedure BitBtn_quitClick(Sender: TObject);
procedure BitBtn_findClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn_printClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
sqlstr :string;
public
{ Public declarations }
end;
var
form_query_xs: Tform_query_xs;
implementation
uses Unit_main, Unit_input_xs,unit_get_kh;
{$R *.dfm}
procedure Tform_query_xs.BitBtn_quitClick(Sender: TObject);
begin
self.Close;
end;
procedure Tform_query_xs.BitBtn_findClick(Sender: TObject);
var d_begin ,d_end ,str :string;
je :double;
begin
je:=0;
str := sqlstr;
//用變量取開始和結束日期時間
d_begin := formatdatetime('YYYY-M-DD',DateEdit_begin.Date);
d_end := formatdatetime('YYYY-M-DD',DateEdit_end.Date);
//加入日期條件查詢
str := str + ' and (t0302>=#'+d_begin+'#) and (t0302<=#'+d_end+'#)';
//加入進貨單號條件查詢
if trim(Edit_jhdh.Text) <> '' then
str := str + ' and t0301 like '''+trim(Edit_jhdh.Text)+'%''';
//加入客戶條件查詢
if trim(Edit_gys.Text) <> '' then
str := str + ' and (select t0202 from t02 where t0200=t03.t0304) like '''+trim(Edit_gys.Text)+'%''';
//加入付款方式條件查詢
if trim(ComboBox_fkfs.Text) <> '' then
str := str + ' and t0305 like '''+trim(ComboBox_fkfs.Text)+'%''';
//加入業務員條件查詢
if trim(Edit_ywy.Text) <> '' then
str := str + ' and t0303 like '''+trim(Edit_ywy.Text)+'%''';
//加入操作員條件查詢
if trim(Edit_czy.Text) <> '' then
str := str + ' and t0307 like '''+trim(Edit_czy.Text)+'%''';
ADOQuery1.Close;
ADOQuery1.SQL.Text := str;
ADOQuery1.Open;
//合計金額
while not ADOQuery1.Eof do
begin
je :=je+ADOQuery1.FieldByName('t0404').AsInteger;
ADOQuery1.Next;
end;
Edit_je.Text := floattostr(je);
end;
procedure Tform_query_xs.FormShow(Sender: TObject);
begin
inherited;
sqlstr := ADOQuery1.SQL.Text;
//產生付款方式列表
ADOQuery2.close;
ADOQuery2.SQL.text := 'select * from t13';
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
ComboBox_fkfs.items.Add(ADOQuery2.fieldbyname('t1301').AsString);
ADOQuery2.Next;
end;
end;
procedure Tform_query_xs.BitBtn_printClick(Sender: TObject);
begin
if not ADOQuery1.Active then exit;
if ADOQuery1.RecordCount = 0 then exit;
RMVariables['d_begin'] := DateEdit_begin.Date;
RMVariables['d_end'] := DateEdit_end.Date;
RMReport1.LoadFromFile('Unit_query_xs.rmf');
RMReport1.ShowReport;
end;
procedure Tform_query_xs.DBGrid1DblClick(Sender: TObject);
begin
if ADOQuery1.Active = false then exit;
if ADOQuery1.RecordCount = 0 then exit;
form_main.N42.Click;
form_input_xssk.Edit_dh.Text := ADOQuery1.fieldbyname('t0301').AsString;
form_input_xssk.BitBtn_find.Click;
end;
procedure Tform_query_xs.SpeedButton1Click(Sender: TObject);
begin
inherited;
form_get_kh.ShowModal;
if form_get_kh.kh_id=0 then exit;
Edit_gys.Text:=form_get_kh.kh_mc;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -