⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mc_jhxxtj.pas

📁 异洲酒店管理系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
begin
  Query1.Close;
  Query1.SQL.Clear;
  if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
     Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 <> :B')
  Else
     Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' <> :B');
  if cc='ASC' then
     begin
          Query1.SQL.Add('ORDER BY '+ComboBox1.Items[ComboBox1.ItemIndex]+' ASC');
     End
  Else
     begin
          Query1.SQL.Add('ORDER BY '+ComboBox1.Items[ComboBox1.ItemIndex]+' DESC');
     end;
   if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
       begin
            Query1.Params[0].AsString:=Edit1.Text;
       End
    Else
       begin
            Query1.Params[0].AsInteger:=StrToInt(Edit1.Text);
       end;
  Query1.Open;
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
  if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
     Query2.SQL.Add('Where 经受人 <> :B')
  Else
     Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' <> :B');
   if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
       begin
            Query2.Params[0].AsString:=Edit1.Text;
       End
    Else
       begin
            Query2.Params[0].AsInteger:=StrToInt(Edit1.Text);
       end;
  Query2.Open;
  Label3.Caption:=Query2.Fields[0].AsString+'种';
  Label5.Caption:=IntToStr(Query1.RecordCount);
  Label7.Caption:=Query2.FieldS[1].AsString;
  Label9.Caption:=Query2.Fields[2].AsString;
  Query2.Close;
end;//结束不等号
end;//-结束符号判断
end//--结束CheckBox2.CheckEd=True,开始假值
else//真假值的分界限
begin//开始CheckBox2.Checked=False
if ComboBox4.text='Like' then
begin
if Edit1.text='*' then
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * From 进货信息历史表');
  Query1.Open;
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
  Query2.Open;
  Label3.Caption:=Query2.Fields[0].AsString+'种';
  Label5.Caption:=IntToStr(Query1.RecordCount);
  Label7.Caption:=Query2.FieldS[1].AsString;
  Label9.Caption:=Query2.Fields[2].AsString;
  Query2.Close;
end//结束*号判断
Else
begin
  if (ComboBox3.Items[ComboBox3.ItemIndex]='单据编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='商品编号') or (ComboBox3.Items[ComboBox3.ItemIndex]='数量')
     or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库编号') then
     begin
       Query1.Close;
       Query1.SQL.Clear;
       Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
       Query1.Params[0].AsString:=Edit1.Text+'%';
       Query1.Open;
       Query2.Close;
       Query2.SQL.Clear;
       Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
       Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
       Query2.Params[0].AsString:=Edit1.Text+'%';
       Query2.Open;
       Label3.Caption:=Query2.Fields[0].AsString+'种';
       Label5.Caption:=IntToStr(Query1.RecordCount);
       Label7.Caption:=Query2.FieldS[1].AsString;
       Label9.Caption:=Query2.Fields[2].AsString;
       Query2.Close;
     end;//结束判断字段为整形
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
      if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
       begin
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 Like :A');
        Query1.Params[0].AsString:=Edit1.Text+'%';
        Query1.Open;
        Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
        Query2.SQL.Add('Where 经受人 Like :A');
        Query2.Params[0].AsString:=Edit1.Text+'%';
        Query2.Open;
        Label3.Caption:=Query2.Fields[0].AsString+'种';
        Label5.Caption:=IntToStr(Query1.RecordCount);
        Label7.Caption:=Query2.FieldS[1].AsString;
        Label9.Caption:=Query2.Fields[2].AsString;
        Query2.Close;
       end//结束判断[经受人]字段
      Else
     begin
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
      Query1.Params[0].AsString:=Edit1.Text+'%';
      Query1.Open;
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
      Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' Like :A');
      Query2.Params[0].AsString:=Edit1.Text+'%';
      Query2.Open;
      Label3.Caption:=Query2.Fields[0].AsString+'种';
      Label5.Caption:=IntToStr(Query1.RecordCount);
      Label7.Caption:=Query2.FieldS[1].AsString;
      Label9.Caption:=Query2.Fields[2].AsString;
      Query2.Close;
     end;//结束判断字段  [不为经受人]
    end;//结束判断为字符型的字段
end;//结束不为Edit1.Text=*的判断
end//技术判断Like
Else
begin//开始符号判断
if ComboBox4.Items[ComboBox4.ItemIndex]='=' then
begin
 Query1.Close;
 Query1.SQL.Clear;
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 = :B')
 Else
    Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' = :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query1.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query1.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query2.SQL.Add('Where 经受人 = :B')
 Else
    Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' = :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query2.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query2.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query2.Open;
 Label3.Caption:=Query2.Fields[0].AsString+'种';
 Label5.Caption:=IntToStr(Query1.RecordCount);
 Label7.Caption:=Query2.FieldS[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString;
 Query2.Close;
end;//结束等号判断
if ComboBox4.Items[ComboBox4.ItemIndex]='>' then
begin
 Query1.Close;
 Query1.SQL.Clear;
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 > :B')
 Else
    Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' > :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query1.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query1.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query2.SQL.Add('Where 经受人 > :B')
 Else
    Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' > :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query2.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query2.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query2.Open;
 Label3.Caption:=Query2.Fields[0].AsString+'种';
 Label5.Caption:=IntToStr(Query1.RecordCount);
 Label7.Caption:=Query2.FieldS[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString;
 Query2.Close;
end;//结束大于号判断
if ComboBox4.Items[ComboBox4.ItemIndex]='<' then
begin
 Query1.Close;
 Query1.SQL.Clear;
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 < :B')
 Else
    Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' < :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query1.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query1.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query2.SQL.Add('Where 经受人 < :B')
 Else
    Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' < :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query2.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query2.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query2.Open;
 Label3.Caption:=Query2.Fields[0].AsString+'种';
 Label5.Caption:=IntToStr(Query1.RecordCount);
 Label7.Caption:=Query2.FieldS[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString;
 Query2.Close;
end;//结束小于号判断
if ComboBox4.Items[ComboBox4.ItemIndex]='<>' then
begin
 Query1.Close;
 Query1.SQL.Clear;
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query1.SQL.Add('Select * From 进货信息历史表 where 经受人 <> :B')
 Else
     Query1.SQL.Add('Select * From 进货信息历史表 where '+ComboBox3.Items[ComboBox3.ItemIndex]+' <> :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query1.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query1.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query1.Open;
 Query2.Close;
 Query2.SQL.Clear;
 Query2.SQL.Add('select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 进货信息历史表');
 if ComboBox3.Items[ComboBox3.ItemIndex]='经手人' then
    Query2.SQL.Add('Where 经受人 <> :B')
 Else
    Query2.SQL.Add('Where '+ComboBox3.Items[ComboBox3.ItemIndex]+' <> :B');
 if (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称') or (ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称') then
    begin
         Query2.Params[0].AsString:=Edit1.Text;
    End
 Else
    begin
         Query2.Params[0].AsInteger:=StrToInt(Edit1.Text);
    end;
 Query2.Open;
 Label3.Caption:=Query2.Fields[0].AsString+'种';
 Label5.Caption:=IntToStr(Query1.RecordCount);
 Label7.Caption:=Query2.FieldS[1].AsString;
 Label9.Caption:=Query2.Fields[2].AsString;
 Query2.Close;
end;//结束不等号判断
end;//-----结束符号判断-----------------------------------------
end;//--结束Checkbox2.Checked:=False的判断------------------------------
end;//结束判断Edit1.Text为空-------------------------------------------------
end;
//选择条件
procedure TJHXXTJ.ComboBox4Click(Sender: TObject);
begin
if ComboBox4.Items[ComboBox4.ItemIndex]='Like' then Edit1.text:='*'
else Edit1.Text:='';
end;

procedure TJHXXTJ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ComboBox4.Items[ComboBox4.ItemIndex]='Like' then
begin
if not ((ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称')
 or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称')) then
begin
  if key=#13 then BitBtn3.Click
  Else
  if not (key='*') then //'vk_Multiply  = $6A;
  if Key=#8 then key:=#8
  Else
  if (key<'0') or (key>'9') then key:=#0
  Else
end;
End
Else
if not ((ComboBox3.Items[ComboBox3.ItemIndex]='经手人') or (ComboBox3.Items[ComboBox3.ItemIndex]='商品名称')
or (ComboBox3.Items[ComboBox3.ItemIndex]='仓库名称')) then
begin
if key=#13 then BitBtn3.Click
Else
if Key=#8 then key:=#8
Else
if (key<'0') or (key>'9') then key:=#0;
End
Else
if key=#13 then BitBtn3.Click;
end;
//关闭窗体
procedure TJHXXTJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,300,AW_HIDE+AW_SLIDE+AW_VER_POSITIVE);
 JHXXTJ.Release;
 JHXXTJ:=Nil;
end;

//退出
procedure TJHXXTJ.BitBtn2Click(Sender: TObject);
begin
 Close;
end;

end.
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -