xsdcx1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit xsdcx1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, EHGrids, DBGridEh, StdCtrls, Menus;

type
  Txsdcx = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1mdid: TStringField;
    Query1posid: TStringField;
    Query1xsrq: TDateTimeField;
    Query1skyid: TStringField;
    Query1xsje: TCurrencyField;
    Query1zkje: TCurrencyField;
    Query1xsid: TStringField;
    DataSource2: TDataSource;
    Query2: TQuery;
    Query2xsid: TStringField;
    Query2spcode: TStringField;
    Query2name: TStringField;
    Query2splb: TStringField;
    Query2unit: TStringField;
    Query2barcode: TStringField;
    Query2dj: TCurrencyField;
    Query2sl: TFloatField;
    Query2je: TCurrencyField;
    Query2zkje: TCurrencyField;
    Query2xsrq: TDateTimeField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBGridEh2: TDBGridEh;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsdcx: Txsdcx;

implementation

{$R *.DFM}

procedure Txsdcx.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date := now();
  DateTimePicker2.Date := now();
end;

procedure Txsdcx.Button1Click(Sender: TObject);
var pos, sky, xsdh: string;
begin
  if Edit1.text = '' then pos := '%' else pos := Edit1.text;
  if Edit2.text = '' then sky := '%' else sky := Edit2.text;
  if Edit3.text = '' then xsdh := '%' else xsdh := Edit3.text;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('select * from spxs_m');
  Query1.sql.add('where posid like :posid and skyid like :skyid and xsid like :xsid and (xsrq>=:rq1 and xsrq<=:rq2)');
  Query1.ParamByName('posid').asstring := pos;
  Query1.ParamByName('skyid').asstring := sky;
  Query1.ParamByName('xsid').asstring := xsdh;
  Query1.ParamByName('rq1').asdate := DateTimePicker1.date;
  Query1.ParamByName('rq2').asdate := DateTimePicker2.date;
  Query1.open;
end;

procedure Txsdcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Txsdcx.PageControl1Change(Sender: TObject);
begin
  if Query1.fieldbyname('xsid').asstring = '' then
  begin
    PageControl1.ActivePageIndex := 0;
    exit;
  end;
  Query2.close;
  Query2.ParamByName('xsid').asstring := Query1.fieldbyname('xsid').asstring;
  Query2.open;
end;

end.