?? khthsear_un.pas
字號(hào):
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'])+'天內(nèi)無(wú)條件退貨';
if (da>sp_disp.FieldValues['fth'])and (da<=sp_disp.FieldValues['fhj']) then
bsSkinStdLabel15.caption:=IntToStr(sp_disp.FieldValues['fhj'])+'天內(nèi)由于技術(shù)原來(lái)可換同型號(hào)機(jī)型';
if (da>sp_disp.FieldValues['fhj']) and (da<=365*sp_disp.FieldValues['fzb']) then
bsSkinStdLabel15.caption:=IntToStr(sp_disp.FieldValues['fzb'])+'年質(zhì)保期內(nèi)';
if da>365*sp_disp.FieldValues['fzb'] then
bsSkinStdLabel15.caption:='不在服務(wù)期內(nèi),只能做舊機(jī)收購(gòu)';
bsSkinEdit3.Text:=bsSkinDBText4.Caption;
end;
end;
procedure Tkhthsear_frm.bsSkinRadioGroup2Click(Sender: TObject);
begin
inherited;
if bsSkinRadioGroup2.ItemIndex=1 then
begin
bsSkinEdit2.Clear;
bsSkinEdit2.Text:='由于技術(shù)原因而退貨';
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;
//執(zhí)行存儲(chǔ)過(guò)程
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']:='客戶購(gòu)買后退貨' ;
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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -