xsdcx1.pas

不错的代码 希望大家喜欢 别忘了看完以后联系我

unit xsdcx1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, EHGrids, DBGridEh, StdCtrls, Menus, ADODB,
  ExtCtrls, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  Txsdcx = class(TForm)
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Query1: TADOQuery;
    Query1mdid: TStringField;
    Query1posid: TStringField;
    Query1xsrq: TDateTimeField;
    Query1skyid: TStringField;
    Query1xsje: TCurrencyField;
    Query1zkje: TCurrencyField;
    Query1xsid: TStringField;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2xsid: TdxDBGridMaskColumn;
    dxDBGrid2spcode: TdxDBGridMaskColumn;
    dxDBGrid2name: TdxDBGridMaskColumn;
    dxDBGrid2splb: TdxDBGridMaskColumn;
    dxDBGrid2unit: TdxDBGridMaskColumn;
    dxDBGrid2barcode: TdxDBGridMaskColumn;
    dxDBGrid2dj: TdxDBGridCurrencyColumn;
    dxDBGrid2sl: TdxDBGridMaskColumn;
    dxDBGrid2je: TdxDBGridCurrencyColumn;
    dxDBGrid2zkje: TdxDBGridCurrencyColumn;
    dxDBGrid2xsrq: TdxDBGridDateColumn;
    ADOQuery1: TADOQuery;
    ADOQuery1xsid: TStringField;
    ADOQuery1spcode: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1lb: TStringField;
    ADOQuery1jldw: TStringField;
    ADOQuery1barcode: TStringField;
    ADOQuery1dj: TCurrencyField;
    ADOQuery1sl: TFloatField;
    ADOQuery1je: TCurrencyField;
    ADOQuery1zkje: TCurrencyField;
    ADOQuery1xsrq: TDateTimeField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1mdid: TdxDBGridMaskColumn;
    dxDBGrid1posid: TdxDBGridMaskColumn;
    dxDBGrid1xsrq: TdxDBGridDateColumn;
    dxDBGrid1skyid: TdxDBGridMaskColumn;
    dxDBGrid1xsje: TdxDBGridCurrencyColumn;
    dxDBGrid1zkje: TdxDBGridCurrencyColumn;
    dxDBGrid1xsid: TdxDBGridMaskColumn;
    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

uses MainForm1;

{$R *.DFM}

procedure Txsdcx.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime := MainForm.DateTimePicker2.DateTime;
  DateTimePicker2.DateTime := MainForm.DateTimePicker1.DateTime;
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.Parameters[0].Value := pos;
  Query1.Parameters[1].Value := sky;
  Query1.Parameters[2].Value := xsdh;
  Query1.Parameters[3].Value := DateTimePicker1.date;
  Query1.Parameters[4].Value := DateTimePicker2.date;
  Query1.open;
end;

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

procedure Txsdcx.PageControl1Change(Sender: TObject);
begin
  try
    if Query1.Active = false then
    begin
      PageControl1.ActivePageIndex := 0;
      exit;
    end;
    if Query1.fieldbyname('xsid').asstring = '' then
    begin
      PageControl1.ActivePageIndex := 0;
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from spxs_s_v where xsid=:xsid');
    ADOQuery1.Parameters[0].Value := dxDBGrid1.SelectedNodes[0].Strings[6];
    ADOQuery1.Open;
  except
  end;
end;

end.