uqueryimport.pas

物流行业

unit Uqueryimport;

interface

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

type
  Tfmqueryimport = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn4: TBitBtn;
    StatusBar1: TStatusBar;
    Table2: TTable;
    ListBox1: TListBox;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Query3: TQuery;
    Table2Drq: TDateField;
    Table2Ccm: TStringField;
    Table2Chc: TStringField;
    Table2Cxh: TStringField;
    Table2Ccc: TStringField;
    Table2Cxx: TStringField;
    Table2Lzt: TBooleanField;
    Table2Ccxr: TStringField;
    Table2Cxw: TStringField;
    Table2Chm: TStringField;
    Table2Lyc: TBooleanField;
    ListBox2: TListBox;
    ListBox3: TListBox;
    RadioGroup2: TRadioGroup;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    BitBtn1: TBitBtn;
    ComboBox1: TComboBox;
    Table2Cinout: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryimport: Tfmqueryimport;

implementation

uses Uimportreport;

{$R *.dfm}

procedure Tfmqueryimport.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to table2.FieldCount-1 do
begin listbox1.Items.Add(table2.Fields[i].DisplayName);
end;
edit1.Text:='';
edit2.Text:='';
combobox1.Visible:=false;
edit2.Visible:=false;
listbox1.ItemIndex:=0;



end;

procedure Tfmqueryimport.BitBtn4Click(Sender: TObject);
begin
fmqueryimport.Close;
end;


procedure Tfmqueryimport.Button1Click(Sender: TObject);
var listarray:array[0..11] of string;
     tj,lj,skc:string;
     i:integer;
begin
listarray[0]:='drq';
listarray[1]:='ccm';
listarray[2]:='chc';
listarray[3]:='cxh';
listarray[4]:='ccc';
listarray[5]:='cxx';
listarray[6]:='lzt';
listarray[7]:='ccxr';
listarray[8]:='cxw';
listarray[9]:='chm';
listarray[10]:='lyc';
listarray[11]:='cinout';



if combobox1.Visible=true then skc:=combobox1.Text else skc:=trim(edit1.Text);

if radiogroup1.ItemIndex=0 then tj:=' = ';
if radiogroup1.ItemIndex=1 then tj:=' <> ';
if radiogroup1.ItemIndex=2 then tj:=' like ';

if listbox2.Items.text<>'' then
begin if radiogroup2.ItemIndex=0 then lj:=' and ' else lj:=' or ';
end
else lj:='';

if not (radiogroup1.ItemIndex=3) then
begin
if not (radiogroup1.ItemIndex=2) then
begin
for i:=listbox1.Items.Count-1 downto 0 do
begin if listbox1.Selected[i] then
begin
listbox2.Items.Add(lj+listbox1.Items[listbox1.itemindex]+tj+'"'+skc+'"');
listbox3.Items.Add(lj+listarray[listbox1.itemindex]+tj+'"'+skc+'"');
end;
end;
end
else
begin
for i:=listbox1.items.count-1 downto 0 do
begin if listbox1.Selected[i] then
begin
listbox2.Items.add(lj+listbox1.Items[listbox1.itemindex]+tj+'"'+skc+'%'+'"');
listbox3.Items.add(lj+listarray[listbox1.itemindex]+tj+'"'+skc+'%'+'"');

end;
end
end;
end
else
for i:=listbox1.items.count-1 downto 0 do
begin
if listbox1.Selected[i] then
begin
listbox2.Items.Add(listbox1.Items[listbox1.itemindex]+'>='+'"'+skc+'"'+' and '+listbox1.Items[listbox1.itemindex]+'<='+'"'+edit2.Text+'"');
listbox3.Items.Add(listarray[listbox1.itemindex]+'>='+'"'+skc+'"'+' and '+listbox1.Items[listbox1.itemindex]+'<='+'"'+edit2.Text+'"');
end;
end;
end;

procedure Tfmqueryimport.RadioGroup1Click(Sender: TObject);
begin
if (radiogroup1.ItemIndex=0) or  (radiogroup1.ItemIndex=1) or (radiogroup1.ItemIndex=2) then edit2.Visible:=false;
if radiogroup1.ItemIndex=3 then begin
edit2.Visible:=true;
end;
end;

procedure Tfmqueryimport.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex=4 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('20''');
combobox1.Items.Add('40''');
combobox1.Items.Add('45''');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;

if listbox1.ItemIndex=5 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('GP');
combobox1.Items.Add('FR');
combobox1.Items.Add('OT');
combobox1.Items.Add('OS');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;

if listbox1.ItemIndex=6 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('E');
combobox1.Items.Add('F');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;

if listbox1.ItemIndex=8 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('码头前沿');
combobox1.Items.Add('后方库场');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;

if listbox1.ItemIndex=9 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('废纸');
combobox1.Items.Add('设备');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;


if listbox1.ItemIndex=10 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('True');
combobox1.Items.Add('False');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;

if listbox1.ItemIndex=11 then
begin
combobox1.Visible:=true;
edit1.Visible:=false;
combobox1.Clear;
combobox1.Items.Add('内贸');
combobox1.Items.Add('外贸');
combobox1.Width:=edit1.Width;
combobox1.Height:=edit1.Height;
combobox1.Left:=edit1.Left;
combobox1.Top:=edit1.Top;
end;



if (listbox1.ItemIndex=0) or (listbox1.ItemIndex=1) or (listbox1.ItemIndex=2) or (listbox1.ItemIndex=3) or (listbox1.ItemIndex=7)  then
begin
combobox1.Visible:=false;
edit1.Visible:=true;
edit2.Text:='';
edit1.Text:='';
EDIT1.SetFocus;
end;

end;

procedure Tfmqueryimport.Button2Click(Sender: TObject);
begin
if listbox2.Items.Text<>'' then
begin
query3.Close;
query3.SQL.Clear;
query3.SQL.Add('select * from importcontainer where '+listbox3.Items.Text);
query3.Open;
statusbar1.Panels[0].Text:='共计: '+inttostr(query3.RecordCount)+' 条记录 ';
end
else
query3.Active:=false;
fmqueryimport.Activate;
IF query3.RecordCount>0 then bitbtn1.Enabled:=true else bitbtn1.Enabled:=false;
end;
procedure Tfmqueryimport.Button3Click(Sender: TObject);
var j:integer;
begin
j:=listbox2.ItemIndex;
listbox2.DeleteSelected;
listbox3.Items.Delete(j);

end;

procedure Tfmqueryimport.Button4Click(Sender: TObject);
begin
listbox2.Clear;
listbox3.Clear;
end;

procedure Tfmqueryimport.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(Tfmimportreport,fmimportreport);
fmimportreport.Query1:=query3;
fmimportreport.QuickRep1.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText1.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText2.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText3.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText4.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText5.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText6.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText7.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText8.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText9.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText10.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText11.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText12.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText13.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText14.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText15.DataSet:=fmimportreport.Query1;
fmimportreport.QRLabel18.Caption:=inttostr(fmqueryimport.Query3.RecordCount)+' 条记录';
fmimportreport.QRLabel19.Caption:='';
fmimportreport.QRLabel20.Caption:='';
fmimportreport.QRLabel21.Caption:='';
fmimportreport.QRLabel22.Caption:='';
fmimportreport.QRLabel23.Caption:='';
fmimportreport.QuickRep1.Preview;
end;

procedure Tfmqueryimport.FormActivate(Sender: TObject);
begin
bitbtn1.Enabled:=false;
end;

end.