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

📄 khthsear_un.pas

📁 手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能
💻 PAS
字号:
🔍 
unit khthsear_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm, StdCtrls,
  Mask, bsSkinBoxCtrls, bsdbctrls, bsSkinCtrls, bsSkinGrids, bsDBGrids, DB,
  ADODB;

type
  Tkhthsear_frm = class(Tbase_frm)
    bsSkinPanel3: TbsSkinPanel;
    bsSkinExPanel3: TbsSkinExPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    sp_disp: TADOStoredProc;
    ds_disp: TDataSource;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinSpeedButton15: TbsSkinSpeedButton;
    bsSkinSpeedButton16: TbsSkinSpeedButton;
    bsSkinSpeedButton17: TbsSkinSpeedButton;
    bsSkinSpeedButton18: TbsSkinSpeedButton;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinDBGrid2: TbsSkinDBGrid;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOQuery;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    bsSkinPanel11: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinExPanel2: TbsSkinExPanel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBText7: TbsSkinDBText;
    bsSkinDBText8: TbsSkinDBText;
    bsSkinDBText9: TbsSkinDBText;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBText10: TbsSkinDBText;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel35: TbsSkinStdLabel;
    bsSkinStdLabel40: TbsSkinStdLabel;
    bsSkinStdLabel39: TbsSkinStdLabel;
    bsSkinStdLabel38: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBText11: TbsSkinDBText;
    bsSkinDBText6: TbsSkinDBText;
    bsSkinDBText4: TbsSkinDBText;
    bsSkinDBText5: TbsSkinDBText;
    bsSkinDBText3: TbsSkinDBText;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinDBText12: TbsSkinDBText;
    bsSkinDBText13: TbsSkinDBText;
    bsSkinDBText14: TbsSkinDBText;
    bsSkinPanel19: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinPanel18: TbsSkinPanel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    ADOStoredProc1: TADOStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinGroupBox2Checked(Sender: TObject);
    procedure bsSkinGroupBox1Checked(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox3Change(Sender: TObject);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit1Change(Sender: TObject);
    procedure sp_dispAfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton15Click(Sender: TObject);
    procedure bsSkinSpeedButton16Click(Sender: TObject);
    procedure bsSkinSpeedButton17Click(Sender: TObject);
    procedure bsSkinSpeedButton18Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox4Click(Sender: TObject);
    procedure ds_dispDataChange(Sender: TObject; Field: TField);
    procedure bsSkinRadioGroup2Click(Sender: TObject);
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinRadioGroup1Click(Sender: TObject);
    procedure sp_dispBeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
    act:integer;
    val:string;

    procedure checksat();
    procedure setpanel();
  public
    { Public declarations }
  end;

var
  khthsear_frm: Tkhthsear_frm;

implementation
uses data_un,sgsj_un,sjxc_un;

{$R *.dfm}
procedure tkhthsear_frm.setpanel();
var i:integer;
begin
for i:=0 to ComponentCount-1 do
    if Components[i] is  TbsSkinPanel then
          if Components[i].Tag=6 then
             begin
               TbsSkinPanel(Components[i]).Visible:=false;
               TbsSkinPanel(Components[i]).Left:=1;
               TbsSkinPanel(Components[i]).top:=1;
               TbsSkinPanel(Components[i]).Width:=337;
               TbsSkinPanel(Components[i]).Height:=317;
              end;

end;

procedure tkhthsear_frm.checksat();
begin
bsSkinSpeedButton15.Enabled :=Not sp_disp.Bof ;
bsSkinSpeedButton18.Enabled := Not sp_disp.Eof;
bsSkinSpeedButton16.Enabled := bsSkinSpeedButton15.Enabled;
bsSkinSpeedButton17.Enabled := bsSkinSpeedButton18.Enabled;

end;
procedure Tkhthsear_frm.FormCreate(Sender: TObject);
begin
  inherited;
bsSkinStdLabel15.Caption:='';
end;

procedure Tkhthsear_frm.bsSkinButton3Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tkhthsear_frm.bsSkinGroupBox2Checked(Sender: TObject);
begin
  inherited;
//bsSkinGroupBox1.Checked:=not bsSkinGroupBox2.Checked;
end;

procedure Tkhthsear_frm.bsSkinGroupBox1Checked(Sender: TObject);
begin
  inherited;
//bsSkinGroupBox2.Checked:=not bsSkinGroupBox1.Checked;

end;

procedure Tkhthsear_frm.FormShow(Sender: TObject);
var i:Integer;
begin
  inherited;
 for i:=0 to ComponentCount-1 do
 begin
  if Components[i] is  TbsSkinDBText then
  TbsSkinDBText(Components[i]).Caption:='';
  if Components[i] is TbsSkinDBEdit then
  TbsSkinDBEdit(Components[i]).Text:='';
  end;
    
setpanel();
bsSkinButton1.Enabled:=false;
//bsSkinGroupBox2.Checked:=true;
//bsSkinGroupBox1.Checked:=false;
bsSkinGroupBox1.Visible:=false;
bsSkinGroupBox2.Visible:=true;
bsSkinSpeedButton15.Enabled:=false;
bsSkinSpeedButton16.Enabled:=false;
bsSkinSpeedButton17.Enabled:=false;
bsSkinSpeedButton18.Enabled:=false;
tbl_sjcs.Open;

act:=1;

bsSkinPanel10.Visible:=False;
bsSkinButton2.Enabled:=False;
bsSkinRadioGroup2.Visible:=false;
bsSkinRadioGroup1.Enabled:=false;
bsSkinPanel18.Visible:=false;



end;

procedure Tkhthsear_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox2.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox1.Visible:=not bsSkinCheckRadioBox1.Checked;
bsSkinButton1.Enabled:=true;
act:=1;
end;

procedure Tkhthsear_frm.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox1.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox2.Visible:= not bsSkinCheckRadioBox2.Checked;
bsSkinButton1.Enabled:=false;
act:=2;
end;

procedure Tkhthsear_frm.bsSkinDBLookupComboBox3Change(Sender: TObject);
begin
  inherited;
  sp_disp.Close;
sp_disp.Parameters.ParamValues['@act']:=act;
sp_disp.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid'];
sp_disp.ExecProc;
sp_disp.Open;
end;

procedure Tkhthsear_frm.bsSkinEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if Key=#13 then
begin
sp_disp.Close;
sp_disp.Parameters.ParamValues['@act']:=act;
sp_disp.Parameters.ParamValues['@val']:=bsSkinEdit1.Text;
sp_disp.ExecProc;
sp_disp.Open;
end;
end;

procedure Tkhthsear_frm.bsSkinEdit1Change(Sender: TObject);
begin
  inherited;
if bsSkinEdit1.Text<>'' then bsSkinButton1.Enabled:=true;
end;

procedure Tkhthsear_frm.sp_dispAfterOpen(DataSet: TDataSet);
begin
  inherited;
if sp_disp.Active then
  if sp_disp.RecordCount>0 then
   begin
bsSkinSpeedButton15.Enabled:=True;
bsSkinSpeedButton16.Enabled:=True;
bsSkinSpeedButton17.Enabled:=True;
bsSkinSpeedButton18.Enabled:=True;
bsSkinButton2.Enabled:=true;
bsSkinRadioGroup1.Enabled:=True;
bsSkinPanel18.Visible:=true;

end;
end;

procedure Tkhthsear_frm.bsSkinSpeedButton15Click(Sender: TObject);
begin
  inherited;
sp_disp.First;
checksat();
end;

procedure Tkhthsear_frm.bsSkinSpeedButton16Click(Sender: TObject);
begin
  inherited;
sp_disp.Prior;
checksat();
end;

procedure Tkhthsear_frm.bsSkinSpeedButton17Click(Sender: TObject);
begin
  inherited;
sp_disp.Next;
checksat();
end;

procedure Tkhthsear_frm.bsSkinSpeedButton18Click(Sender: TObject);
begin
  inherited;
sp_disp.Last;
checksat();
end;

procedure Tkhthsear_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
sp_disp.Close;
sp_disp.Parameters.ParamValues['@act']:=act;
if bsSkinCheckRadioBox1.Checked then
sp_disp.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid']
else
sp_disp.Parameters.ParamValues['@val']:=bsSkinEdit1.Text;
sp_disp.ExecProc;
sp_disp.Open;
end;

procedure Tkhthsear_frm.bsSkinDBLookupComboBox4Click(Sender: TObject);
begin
  inherited;
tbl_sjxh.Open;
end;

procedure Tkhthsear_frm.ds_dispDataChange(Sender: TObject; Field: TField);
var da:integer;
begin
  inherited;
 if sp_disp.Active then
    if sp_disp.RecordCount>0 then
    begin
da:=Date()-sp_disp.FieldValues['fsadate'];
if da<=sp_disp.FieldValues['fth'] then
bsSkinStdLabel15.caption:=IntToStr(sp_disp.FieldValues['fth'])+'天内无条件退货';
if (da>sp_disp.FieldValues['fth'])and (da<=sp_disp.FieldValues['fhj']) then
bsSkinStdLabel15.caption:=IntToStr(sp_disp.FieldValues['fhj'])+'天内由于技术原来可换同型号机型';
if (da>sp_disp.FieldValues['fhj']) and (da<=365*sp_disp.FieldValues['fzb']) then
bsSkinStdLabel15.caption:=IntToStr(sp_disp.FieldValues['fzb'])+'年质保期内';
if da>365*sp_disp.FieldValues['fzb'] then
bsSkinStdLabel15.caption:='不在服务期内，只能做旧机收购';
bsSkinEdit3.Text:=bsSkinDBText4.Caption;
    end;
end;
procedure Tkhthsear_frm.bsSkinRadioGroup2Click(Sender: TObject);
begin
  inherited;
if bsSkinRadioGroup2.ItemIndex=1 then
begin
bsSkinEdit2.Clear;
bsSkinEdit2.Text:='由于技术原因而退货';
bsSkinPanel10.Visible:=true;
bsSkinButton2.Enabled:=false;


end;
if bsSkinRadioGroup2.ItemIndex=0 then
begin
bsSkinEdit2.Clear;
bsSkinPanel10.Visible:=false;
bsSkinButton2.Enabled:=true;


end;

end;

procedure Tkhthsear_frm.bsSkinEdit2KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if bsSkinEdit2.Text<>'' then
bsSkinButton2.Enabled:=true;
end;

procedure Tkhthsear_frm.bsSkinButton2Click(Sender: TObject);
var act:Integer;
    bad:integer;
    sjxc:Tsjxc_frm;
begin
  inherited;
if bsSkinRadioGroup2.ItemIndex=1 then
bad:=1
else
bad:=0;

//执行存储过程
with ADOStoredProc1 do
begin

Parameters.ParamValues['@vact']:=bsSkinRadioGroup1.ItemIndex;
Parameters.ParamValues['@vbad']:=bad;
Parameters.ParamValues['@vhrxx']:=sp_disp.FieldValues['fid'];
Parameters.ParamValues['@vdat']:=Date();
Parameters.ParamValues['@vmon']:=bsSkinEdit3.Text;
Parameters.ParamValues['@vbea']:=bsSkinEdit2.Text;
Parameters.ParamValues['@vsjxh']:=sp_disp.FieldValues['fsjxhid'];
Parameters.ParamValues['@vjbpz']:= sp_disp.FieldValues['fjbpzid'];
Parameters.ParamValues['@vmemo']:='客户购买后退货' ;
Parameters.ParamValues['@vno']:=sp_disp.FieldValues['fno'];
Parameters.ParamValues['@vcolor']:=sp_disp.FieldValues['fcolorid'];
ExecProc;
 bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes],0)
end;

close;

end;

procedure Tkhthsear_frm.bsSkinRadioGroup1Click(Sender: TObject);
begin
  inherited;
  bsSkinButton2.Enabled:=false;
  bsSkinRadioGroup2.ItemIndex:=0;
      bsSkinPanel10.Visible:=false;
  if bsSkinRadioGroup1.ItemIndex=3 then
    bsSkinButton2.Enabled:=true;

if (bsSkinRadioGroup1.ItemIndex=2) or(bsSkinRadioGroup1.ItemIndex=4) or(bsSkinRadioGroup1.ItemIndex=3)  then
   begin
    bsSkinRadioGroup2.Visible:=false ;
    bsSkinButton2.Enabled:=true;
    end
else
    begin
    bsSkinRadioGroup2.Visible:=True;
    bsSkinButton2.Enabled:=true;
    end;

if (bsSkinRadioGroup1.ItemIndex=4)or(bsSkinRadioGroup1.ItemIndex=2)  then
    bsSkinPanel10.Visible:=true;
if (bsSkinRadioGroup1.ItemIndex=4)or(bsSkinRadioGroup1.ItemIndex=2)  then
    bsSkinPanel18.Visible:=False
else
    bsSkinPanel18.Visible:=true;

if (bsSkinRadioGroup1.ItemIndex=4)then
bsSkinPanel18.Visible:=false;
if (bsSkinRadioGroup1.ItemIndex=3)then
bsSkinPanel18.Visible:=True;

setpanel();








end;

procedure Tkhthsear_frm.sp_dispBeforeOpen(DataSet: TDataSet);
begin
  inherited;
bsSkinRadioGroup1.Enabled:=false;
bsSkinRadioGroup2.Visible:=false;
bsSkinPanel10.Visible:=false;
bsSkinButton2.Enabled:=false;
end;

end.

⌨️ 快捷键说明

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