ghsdacx1.pas

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

unit ghsdacx1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBGrLnk, Db, ADODB,
  dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls,
  StdCtrls, ExtCtrls, dxDBTL, UPTFrame, UPTSplitter, dxPSdxDBTLLnk;

type
  Tghsdacx = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label3: TLabel;
    PTSplitter1: TPTSplitter;
    PTSplitter1_pane1: TPTPane;
    PTSplitter1_pane2: TPTPane;
    dxDBGrid1: TdxDBGrid;
    DataSource2: TDataSource;
    Table1: TADOTable;
    Table1dqid: TIntegerField;
    Table1dqname: TStringField;
    Table1sjdqid: TIntegerField;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListMaskColumn;
    dxDBTreeList1Column2: TdxDBTreeListMaskColumn;
    dxDBTreeList1Column3: TdxDBTreeListMaskColumn;
    ADOQuery1code: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1dq: TStringField;
    ADOQuery1lxr: TStringField;
    ADOQuery1lxdh: TStringField;
    ADOQuery1cz: TStringField;
    ADOQuery1lxdz: TStringField;
    ADOQuery1bz: TStringField;
    ADOQuery1qc: TBCDField;
    ADOQuery1ye: TBCDField;
    dxDBGrid1code: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1dq: TdxDBGridMaskColumn;
    dxDBGrid1lxr: TdxDBGridMaskColumn;
    dxDBGrid1lxdh: TdxDBGridMaskColumn;
    dxDBGrid1cz: TdxDBGridMaskColumn;
    dxDBGrid1lxdz: TdxDBGridMaskColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    dxDBGrid1qc: TdxDBGridMaskColumn;
    dxDBGrid1ye: TdxDBGridMaskColumn;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ADOQuery2: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure dxDBTreeList1Click(Sender: TObject);
    procedure SELECTLB(LBCODE: string);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ghsdacx: Tghsdacx;

implementation

uses MainForm1, dycxspda1;

{$R *.DFM}

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

procedure Tghsdacx.Button1Click(Sender: TObject);
var aa, bb, cc, dd, ee: string;
begin
  if Edit1.Text = '' then aa := '%' else aa := Edit1.Text;
  if Edit2.Text = '' then bb := '%' else bb := Edit2.Text;
  if Edit3.Text = '' then cc := '%' else cc := Edit3.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.add('select * from ghsda_v where code like :code and name like :name and lxr like :lxr and');
  if ListBox1.Items.CommaText = '' then
    ADOQuery1.SQL.add('dq in (' + #39 + Table1dqname.AsString + #39 + ')')
  else
    ADOQuery1.SQL.add('dq in (' + ListBox1.Items.CommaText + ',' + #39 + Table1dqname.AsString + #39 + ')');
  ADOQuery1.Parameters[0].Value := aa;
  ADOQuery1.Parameters[1].Value := cc;
  ADOQuery1.Parameters[2].Value := bb;
  ADOQuery1.Open;
end;

procedure Tghsdacx.Button2Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

procedure Tghsdacx.dxDBTreeList1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
  SELECTLB(#39 + Table1dqid.AsString + #39);
end;

procedure Tghsdacx.SELECTLB(LBCODE: string);
begin
  ListBox2.Items.Clear;
  ADOQuery2.close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select * from dqda where sjdqid in (' + LBCODE + ')');
  ADOQuery2.open;
  if ADOQuery2.RecordCount = 0 then
  begin
    exit;
  end;
  ADOQuery2.First;
  while not ADOQuery2.Eof do
  begin
    ListBox1.Items.Add(#39 + ADOQuery2.fieldbyname('dqname').asstring + #39);
    ListBox2.Items.Add(#39 + ADOQuery2.fieldbyname('dqid').asstring + #39);
    ADOQuery2.Next;
  end;
  SELECTLB(ListBox2.Items.CommaText);
end;

procedure Tghsdacx.FormCreate(Sender: TObject);
begin
  dxDBTreeList1Click(Sender);
end;

end.