unithuizongrep.pas

来自「绿色衡器称重系统(串口）」· PAS 代码 · 共 972 行 · 第 1/3 页

unit unitHuiZongRep;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:[e-mail]     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB, ADODB,
  RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave, ComCtrls, DBGridEh,
  PrnDbgeh, DBSumLst;


type
  TfrmHuiZongRep = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    cbType: TComboBox;
    edtInfo: TEdit;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    rbClassM: TRadioButton;
    rbClassJ: TRadioButton;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    adoConn: TADOConnection;
    qCarHistory: TADOQuery;
    dsCarHistory: TDataSource;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox3: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label6: TLabel;
    Label7: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label8: TLabel;
    DateTimePicker4: TDateTimePicker;
    GroupBox4: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    qDict: TADOQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Bevel1: TBevel;
    Label14: TLabel;
    ComboBox5: TComboBox;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure HuiZongComContrl(bInfo:boolean);
    procedure IniDictInfomation;
  public
    { Public declarations }
  end;

var
  frmHuiZongRep: TfrmHuiZongRep;

implementation

uses unitFun, unitJoin;

{$R *.dfm}

procedure TfrmHuiZongRep.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 frmHuiZongRep:=nil;
 Action:=caFree;
end;

procedure TfrmHuiZongRep.FormShow(Sender: TObject);
var
objFun:TFun;
bcanRead,bcanDelete,bcanModify:boolean;
begin
objFun:=TFun.Create;
IniDictInfomation;
if objFun.CheckUserLv(userID,Name,bcanRead,bcanDelete,bCanModify) then
begin
  if (bcanModify) and (bcanRead) and (bcanDelete)then
 begin
 BitBtn1.Enabled:=bcanModify;
 BitBtn6.Enabled:=bcanModify;
 BitBtn7.Enabled:=bcanModify;
 end
 else
 if (bcanModify) and (bcanRead) then
 begin
 BitBtn1.Enabled:=bcanModify;
 BitBtn6.Enabled:=bcanModify;
 BitBtn7.Enabled:=bcanModify;
 end
 else
 if bcanRead then
 begin
 BitBtn1.Enabled:=bcanModify;
 BitBtn6.Enabled:=Not bcanModify;
 BitBtn7.Enabled:=Not bcanModify;
 end
 else
 begin
 MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
 Close;
 end;
end
else
begin
MessageBox(handle,'对不起，你没有权限操作此功能!',pChar(ClientUSN),MB_OK+MB_ICONERROR);
Close;
end;
HuiZongComContrl(false);
Combobox1.Enabled:=False;
Combobox5.Enabled:=False;
end;



procedure TfrmHuiZongRep.BitBtn1Click(Sender: TObject);
var
strSQL:String;
sInt:Double;
sCode:Integer;
begin
Try
if Trim(edtInfo.text)<>'' then  //文本有内容
begin
 val(Trim(edtInfo.Text),SInt,sCode);
  if rbClassM.Checked then      //选择是模糊
  begin
    if Trim(cbType.Text)='自动' then //选择的是自动
    begin
      if sCode=0 then   //输入的是数字
      begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
     'SiBangYuan as 司磅员 '+
     'from uMaster Where '+
     'ListID like ' +  quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'ChePai like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'ChePaiN  like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'ShouHuoDW  like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'FaHuoDW  like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'HuoPin  like ' + quotedstr('%' + edtInfo.Text + '%') + ' or '+
     'MaoZhong like ' + floattostr(sInt) + ' or ' +
     'PiZhong like ' + floattostr(sInt) + ' or ' +
     'JingZhong like ' + floattostr(sInt) + ' or ' +
     'JingZhongSJ like ' + floattostr(sInt) ;
      end
      else
      begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
     'SiBangYuan as 司磅员 '+
     'from uMaster Where '+
     'ChePai like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'ChePaiN like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'ShouHuoDW like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'FaHuoDW like ' + quotedstr('%' + edtInfo.Text + '%') + ' or ' +
     'HuoPin like ' + quotedstr('%' + edtInfo.Text + '%');
      end;
    end
    else
     if Trim(cbType.Text)='车号前缀' then
     begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
     'SiBangYuan as 司磅员 '+
     'From uMaster Where ChePai like ' + quotedstr('%'+ edtInfo.Text +'%');
     end
      else
       if Trim(cbType.Text)='车牌号' then
        begin
         strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                 'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                 'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                 'SiBangYuan as 司磅员 '+
                 'From uMaster Where ChePaiN like ' + quotedstr('%'+ edtInfo.Text +'%');
        end
         else
           if (Trim(cbType.Text)='毛重') and (sCode=0) then
            begin
             strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                     'SiBangYuan as 司磅员 '+
                     'From uMaster Where MaoZhong like ' + floattostr(sInt);
            end
              else
               if (Trim(cbType.Text)='皮重') and (sCode=0) then
                begin
                 strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                         'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                         'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                         'SiBangYuan as 司磅员 '+
                         'From uMaster Where PiZhong like ' + floattostr(sInt);
                end
                 else
                   if (Trim(cbType.Text)='净重') and (sCode=0) then
                    begin
                     strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                             'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                             'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                             'SiBangYuan as 司磅员 '+
                             'From uMaster Where JingZhong like ' + floattostr(sInt);
                    end
                      else
                       if Trim(cbType.Text)='发货单位' then
                        begin
                         strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                                 'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                                 'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                                 'SiBangYuan as 司磅员 '+
                                 'From uMaster Where FaHuoDW like ' + quotedstr('%'+ edtInfo.Text +'%');
                        end
                          else
                           if Trim(cbType.Text)='收货单位' then
                            begin
                             strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
                                     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
                                     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
                                     'SiBangYuan as 司磅员 '+
                                     'From uMaster Where ShouHuoDW like ' + quotedstr('%'+ edtInfo.Text +'%');
                            end;
  end
  else
  if rbClassJ.Checked then      //选择是精确
  begin
   if Trim(cbType.Text)='自动' then //选择的是自动
    begin
      if sCode=0 then   //输入的是数字
      begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
     'SiBangYuan as 司磅员 '+
     'from uMaster Where '+
     'ListID = ' + quotedstr( edtInfo.Text ) + ' or ' +
     'ChePai = ' + quotedstr( edtInfo.Text ) + ' or ' +
     'ChePaiN = ' + quotedstr( edtInfo.Text ) + ' or ' +
     'ShouHuoDW = ' + quotedstr(edtInfo.Text ) + ' or ' +
     'FaHuoDW = ' + quotedstr( edtInfo.Text ) + ' or ' +
     'HuoPin = ' + quotedstr( edtInfo.Text  ) + ' or '+
     'MaoZhong = ' + floattostr(sInt) + ' or ' +
     'PiZhong = ' + floattostr(sInt) + ' or ' +
     'JingZhong = ' + floattostr(sInt) + ' or ' +
     'JingZhongSJ = ' + floattostr(sInt) ;
      end
      else
      begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
     'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
     'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
     'SiBangYuan as 司磅员 '+
     'from uMaster Where '+
     'ChePai = ' + quotedstr( edtInfo.Text  ) + ' or ' +
     'ChePaiN = ' + quotedstr(  edtInfo.Text  ) + ' or ' +
     'ShouHuoDW = ' + quotedstr( edtInfo.Text  ) + ' or ' +
     'FaHuoDW = ' + quotedstr( edtInfo.Text  ) + ' or ' +
     'HuoPin = ' + quotedstr(  edtInfo.Text );
      end;
    end
    else
     if Trim(cbType.Text)='车号前缀' then
     begin
      strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
      'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
      'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
      'SiBangYuan as 司磅员 '+
      'From uMaster Where ChePai = ' + quotedstr(edtInfo.Text );
     end
      else
       if Trim(cbType.Text)='车牌号' then
        begin
         strSQL:='Select ListID as 磅单号,ChePai+ChePaiN as 车牌号,'+
         'ShouHuoDW as 收货单位, FaHuoDW as 发货单位,HuoPin as 货品,MaoZhong as 毛重,'+
         'PiZhong as 皮重,JingZhong as 净重,JingZhongRQ as 日期,'+
         'SiBangYuan as 司磅员 '+
         'From uMaster Where ChePaiN = ' + quotedstr(edtInfo.Text);
        end
         else
           if (Trim(cbType.Text)='毛重') and (sCode=0) then