usalequery.~pas

是分布式粮库程序,是采用Delphi实现的

unit Usalequery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ComCtrls, DBCtrls, Buttons, ExtCtrls,
  Grids, DBGrids;

type
  Tfsalequery = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Panel1: TPanel;
    btnQuery: TBitBtn;
    btnReset: TBitBtn;
    closebitbtn: TBitBtn;
    Edit1: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    CheckBox1: TCheckBox;
    unitQuery: TQuery;
    unitDataSource: TDataSource;
    saleDataSource: TDataSource;
    itemDataSource: TDataSource;
    saleQuery: TQuery;
    itemQuery: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure btnResetClick(Sender: TObject);
    procedure closebitbtnClick(Sender: TObject);
    procedure saleQueryAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fsalequery: Tfsalequery;
  s:string;
  queryitem:string;
implementation
   uses unitdatamodul,global;
{$R *.dfm}

procedure Tfsalequery.FormCreate(Sender: TObject);
begin
    unitquery.Open;
    checkbox1.Checked :=false;
    datetimepicker1.Enabled :=false;
    datetimepicker2.Enabled :=false;

    if global.g_user.UnitID=0 then
    s:=salequery.SQL.Text
    else begin
    dblookupcombobox1.KeyValue :=global.g_user.UnitID ;
    dblookupcombobox1.Enabled :=false;
    s:=salequery.SQL.Text+' and ent_sale.unit_id='+inttostr(global.g_user.UnitID) ;
    end;
//    s:=salequery.SQL.Text ;
    saleQuery.SQL.Clear;
    saleQuery.SQL.Add(s);
    try
    salequery.Open;
    except
    showmessage('查询错误');
    exit;
    end;

end;

procedure Tfsalequery.btnQueryClick(Sender: TObject);
begin
   queryitem:='';
   if edit1.Text <>'' then
   queryitem:=queryitem+' and sale_id='''+edit1.Text+'''' ;
   if (dblookupcombobox1.Text<>'') and (dblookupcombobox1.KeyValue <>99999) then
   queryitem:=queryitem+' and ent_sale.unit_id='+inttostr(DBLookupComboBox1.KeyValue);
   if edit3.Text <>'' then
   queryitem:=queryitem+' and reciever='''+edit3.Text+'''';
   if checkbox1.Checked=true then
   QueryItem:=QueryItem+' and datetime between '''+FormatDateTime('YYYY-MM-DD',DateTimePicker1.DateTime)+''' and '''+FormatDateTime('YYYY-MM-DD',DateTimePicker2.DateTime)+'''';

    saleQuery.SQL.Clear;
    if QueryItem<>'' then
    saleQuery.SQL.Add(s+QueryItem) else
    salequery.SQL.Add(s);

//    showmessage(salequery.SQL.Text );
     try
       saleQuery.Open;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;
     if salequery.RecordCount =0 then
     begin
     itemquery.close;
     showmessage('没有符合条件的销售单！');
     end;
end;

procedure Tfsalequery.CheckBox1Click(Sender: TObject);
begin
   if checkbox1.Checked=true then
   begin
   datetimepicker1.Enabled :=true;
   datetimepicker2.Enabled :=true;
   end else
   begin
   datetimepicker1.Enabled :=false;
   datetimepicker2.Enabled :=false;
   end;
end;

procedure Tfsalequery.btnResetClick(Sender: TObject);
begin
    edit1.Text :='';
    if global.g_user.UnitID=0 then
    dblookupcombobox1.KeyValue :=99999;
    edit3.Text :='';
    checkbox1.Checked :=false;
    datetimepicker1.Enabled :=false;
    datetimepicker2.Enabled :=false;

    saleQuery.SQL.Clear;
    salequery.SQL.Add(s);
//    showmessage(salequery.SQL.Text );
     try
       saleQuery.Open;
     except
       Application.MessageBox('查询库存时出错!','系统错误',MB_OK+MB_ICONERROR);
       Exit;
     end;
end;

procedure Tfsalequery.closebitbtnClick(Sender: TObject);
begin
 close;
end;

procedure Tfsalequery.saleQueryAfterScroll(DataSet: TDataSet);
begin
  itemquery.ParamByName('sale_id').AsString :=dataset.fieldbyname('sale_id').AsString ;
  itemquery.Close;
  itemquery.Open; 
end;

end.