📄 khlj_un.pas
字号:
unit khlj_un;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm,
bsSkinCtrls, StdCtrls, bsSkinGrids, bsDBGrids, DB, ADODB, bsdbctrls,
Mask, bsSkinBoxCtrls;
type
Tkhlj_frm = class(Tbase_frm)
bsSkinGroupBox3: TbsSkinGroupBox;
bsSkinDBGrid1: TbsSkinDBGrid;
bsSkinScrollBar3: TbsSkinScrollBar;
bsSkinScrollBar4: TbsSkinScrollBar;
bsSkinPanel3: TbsSkinPanel;
bsSkinPanel4: TbsSkinPanel;
bsSkinStdLabel12: TbsSkinStdLabel;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinPanel2: TbsSkinPanel;
bsSkinSpeedButton5: TbsSkinSpeedButton;
bsSkinSpeedButton6: TbsSkinSpeedButton;
bsSkinSpeedButton7: TbsSkinSpeedButton;
bsSkinSpeedButton8: TbsSkinSpeedButton;
ds_bs: TDataSource;
sp_bs: TADOStoredProc;
bsSkinPanel1: TbsSkinPanel;
bsSkinExPanel5: TbsSkinExPanel;
bsSkinStdLabel10: TbsSkinStdLabel;
bsSkinDBText12: TbsSkinDBText;
bsSkinStdLabel32: TbsSkinStdLabel;
bsSkinDBText13: TbsSkinDBText;
bsSkinDBText14: TbsSkinDBText;
bsSkinDBText15: TbsSkinDBText;
bsSkinStdLabel33: TbsSkinStdLabel;
bsSkinDBText16: TbsSkinDBText;
bsSkinStdLabel34: TbsSkinStdLabel;
bsSkinStdLabel36: TbsSkinStdLabel;
bsSkinDBText17: TbsSkinDBText;
bsSkinStdLabel37: TbsSkinStdLabel;
bsSkinExPanel1: TbsSkinExPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
sp_save: TADOStoredProc;
sp_disp: TADOStoredProc;
sp_sear: TADOStoredProc;
bsSkinPanel5: TbsSkinPanel;
bsSkinTextLabel1: TbsSkinTextLabel;
bsSkinNumericEdit1: TbsSkinNumericEdit;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinStdLabel5: TbsSkinStdLabel;
bsSkinDBEdit4: TbsSkinDBEdit;
bsSkinDBEdit5: TbsSkinDBEdit;
bsSkinStdLabel6: TbsSkinStdLabel;
bsSkinDBText1: TbsSkinDBText;
ADOTable1: TADOTable;
DataSource1: TDataSource;
bsSkinPanel6: TbsSkinPanel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinDBText11: TbsSkinDBText;
bsSkinStdLabel14: TbsSkinStdLabel;
bsSkinStdLabel15: TbsSkinStdLabel;
bsSkinStdLabel16: TbsSkinStdLabel;
bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
bsSkinStdLabel18: TbsSkinStdLabel;
bsSkinStdLabel17: TbsSkinStdLabel;
bsSkinDBEdit1: TbsSkinEdit;
bsSkinDBEdit7: TbsSkinEdit;
bsSkinDBEdit3: TbsSkinEdit;
bsSkinDBEdit2: TbsSkinEdit;
ds_sear: TDataSource;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinButton3: TbsSkinButton;
procedure sp_bsAfterOpen(DataSet: TDataSet);
procedure bsSkinSpeedButton5Click(Sender: TObject);
procedure bsSkinSpeedButton6Click(Sender: TObject);
procedure bsSkinSpeedButton7Click(Sender: TObject);
procedure bsSkinSpeedButton8Click(Sender: TObject);
procedure bsSkinCheckRadioBox1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ds_bsDataChange(Sender: TObject; Field: TField);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
private
{ Private declarations }
act:Integer;//1为添加，2为修改 3。为删除
lx:Integer ;//1为质保手机，2。为换货手机
fno:string;
mon:integer;
public
{ Public declarations }
end;
var
khlj_frm: Tkhlj_frm;
implementation
USES data_un;
{$R *.dfm}
procedure Tkhlj_frm.sp_bsAfterOpen(DataSet: TDataSet);
begin
inherited;
if sp_bs.RecordCount>0 then
begin
bsSkinPanel2.Enabled:=true ;
bsSkinCheckRadioBox1.Enabled:=true;
end
else
begin
bsSkinPanel2.Enabled:=false;
bsSkinCheckRadioBox1.Enabled:=false;
end;
end;
procedure Tkhlj_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
inherited;
sp_bs.First;
end;
procedure Tkhlj_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
inherited;
sp_bs.Prior;
end;
procedure Tkhlj_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
inherited;
sp_bs.Next;
end;
procedure Tkhlj_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
inherited;
sp_bs.Last;
end;
procedure Tkhlj_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
inherited;
bsSkinPanel2.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinDBGrid1.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinButton1.Enabled:= bsSkinCheckRadioBox1.Checked;
bsSkinPanel5.Enabled:=bsSkinCheckRadioBox1.Checked;
bsSkinPanel6.Enabled:=bsSkinCheckRadioBox1.Checked;
if sp_bs.RecordCount>0 then
begin
if sp_bs.FieldValues['fhhuse']='F' then
begin
lx:=1 ;//1为质保手机，2。为换货手机
bsSkinPanel5.Visible:=true;
if VarIsNull(sp_bs.FieldValues['fcmon']) then
bsSkinNumericEdit1.Value:=0;
sp_sear.close;
sp_sear.Parameters.ParamValues['@fno']:= sp_bs.FieldValues['fid'] ;
sp_sear.Open;
if VarIsNull(sp_bs.FieldValues['fbsfhid']) then
bsSkinStdLabel2.Caption:='没有到货'
else
if not VarIsNull(sp_bs.FieldValues['fcmon']) then
if StrToInt(sp_bs.FieldValues['fcmon'])>0 then
begin
bsSkinStdLabel2.Caption:='已到货需补差价' ;
bsSkinNumericEdit1.Value:=StrToFloat(sp_bs.FieldValues['fcmon']);
end
else
bsSkinStdLabel2.Caption:='已到货无需补差价' ;
end ;
if sp_bs.FieldValues['fhhuse']='T' then
begin
lx:=2;//1为质保手机，2。为换货手机
if VarIsNull(sp_bs.FieldValues['fnhrxx']) then
bsSkinStdLabel2.Caption:='没有到货'
else
begin
if not VarIsNull(sp_bs.FieldValues['fcmon']) then
if StrToInt(sp_bs.FieldValues['fcmon'])>0 then
begin
bsSkinStdLabel2.Caption:='已到货需补差价' ;
bsSkinDBEdit7.Text:=sp_bs.FieldValues['fcmon'];
end
else
bsSkinStdLabel2.Caption:='已到货无需补差价' ;
sp_sear.close;
sp_sear.Parameters.ParamValues['@fno']:= sp_bs.FieldValues['fnhrxx'] ;
sp_sear.Open;
end;
bsSkinPanel5.Visible:=false;
bsSkinNumericEdit1.Clear;
bsSkinDBLookupComboBox3.KeyValue:=sp_bs.FieldValues['fygid'];
bsSkinDBEdit1.Text:=sp_bs.FieldValues['fkhname'];
bsSkinDBEdit2.Text:=sp_bs.FieldValues['fkhtel'];
bsSkinDBEdit3.Text:='由手机串号'+sp_bs.FieldValues['fno']+'换货'
end;
if sp_bs.FieldValues['fbad']='F' then
begin
bsSkinStdLabel2.Caption:='手机无故障，原机取回';
end;
end;
end;
procedure Tkhlj_frm.bsSkinButton2Click(Sender: TObject);
begin
inherited;
close;
end;
procedure Tkhlj_frm.FormCreate(Sender: TObject);
var i:Integer;
begin
inherited;
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TbsSkinDBEdit then
TbsSkinDBEdit(Components[i]).Text:='';
if Components[i] is TbsSkinDBText then
TbsSkinDBText(Components[i]).Caption:='';
end;
bsSkinDBText1.Caption:='';
bsSkinCheckRadioBox1.Enabled:=false;
bsSkinPanel5.Left:=16;
bsSkinPanel5.Top:=24;
ADOTable1.Open;
bsSkinPanel5.Enabled:=false;
bsSkinPanel6.Enabled:=false;
sp_bs.Close;
sp_bs.Open;
end;
procedure Tkhlj_frm.ds_bsDataChange(Sender: TObject; Field: TField);
begin
inherited;
//
if sp_bs.RecordCount>0 then
begin
if sp_bs.FieldValues['fhhuse']='F' then
begin
lx:=1 ;//1为质保手机，2。为换货手机
bsSkinPanel5.Visible:=true;
if VarIsNull(sp_bs.FieldValues['fcmon']) then
bsSkinNumericEdit1.Value:=0;
sp_sear.close;
sp_sear.Parameters.ParamValues['@fno']:= sp_bs.FieldValues['fid'] ;
sp_sear.Open;
if VarIsNull(sp_bs.FieldValues['fbsfhid']) then
bsSkinStdLabel2.Caption:='没有到货'
else
if not VarIsNull(sp_bs.FieldValues['fcmon']) then
if StrToInt(sp_bs.FieldValues['fcmon'])>0 then
begin
bsSkinStdLabel2.Caption:='已到货需补差价' ;
bsSkinNumericEdit1.Value:=StrToFloat(sp_bs.FieldValues['fcmon']);
end
else
bsSkinStdLabel2.Caption:='已到货无需补差价' ;
end ;
if sp_bs.FieldValues['fhhuse']='T' then
begin
lx:=2;//1为质保手机，2。为换货手机
if VarIsNull(sp_bs.FieldValues['fnhrxx']) then
bsSkinStdLabel2.Caption:='没有到货'
else
begin
if not VarIsNull(sp_bs.FieldValues['fcmon']) then
if StrToInt(sp_bs.FieldValues['fcmon'])>0 then
begin
bsSkinStdLabel2.Caption:='已到货需补差价' ;
bsSkinDBEdit7.Text:=sp_bs.FieldValues['fcmon'];
end
else
bsSkinStdLabel2.Caption:='已到货无需补差价' ;
sp_sear.close;
sp_sear.Parameters.ParamValues['@fno']:= sp_bs.FieldValues['fnhrxx'] ;
sp_sear.Open;
end;
bsSkinPanel5.Visible:=false;
bsSkinNumericEdit1.Clear;
bsSkinDBLookupComboBox3.KeyValue:=sp_bs.FieldValues['fygid'];
bsSkinDBEdit1.Text:=sp_bs.FieldValues['fkhname'];
bsSkinDBEdit2.Text:=sp_bs.FieldValues['fkhtel'];
bsSkinDBEdit3.Text:='由手机串号'+sp_bs.FieldValues['fno']+'换货'
end;
if sp_bs.FieldValues['fbad']='F' then
begin
bsSkinStdLabel2.Caption:='手机无故障，原机取回';
end;
end;
end;
procedure Tkhlj_frm.bsSkinButton1Click(Sender: TObject);
begin
inherited;
with sp_save.Parameters do
begin
ParamValues['@lx']:=lx;
ParamValues['@act']:=1;
ParamValues['@hhdd']:=bsSkinDBText1.Caption;
ParamValues['@hrxx']:=bsSkinDBText17.Caption;
ParamValues['@date']:=Date();
ParamValues['@name']:=bsSkinDBEdit1.Text;
ParamValues['@tel']:=bsSkinDBEdit2.Text;
ParamValues['@fbad']:=sp_bs.FieldValues['fbad'] ;
if lx=1 then
ParamValues['@mon']:= FloatToStr(bsSkinNumericEdit1.Value)
else
ParamValues['@mon']:= bsSkinDBEdit7.Text;
ParamValues['@person']:=ADOTable1.FieldValues['fid'];
ParamValues['@memo']:=bsSkinDBEdit3.Text;
end;
if bsSkinMessage1.MessageDlg('真的领机吗，请仔细核对？',mtInformation,[mbYes,mbNo],0)=mryes then
begin
sp_save.ExecProc;
bsSkinMessage1.MessageDlg('领机成功',mtInformation,[mbYes,mbNo],0);
sp_bs.Close;
sp_bs.Open;
end;
end;
procedure Tkhlj_frm.bsSkinButton3Click(Sender: TObject);
begin
inherited;
if bsSkinMessage1.MessageDlg('请仔细检查，'+#13+'本功能只适合于退机后，'+#13+'又没有故障，'+#13+'客户需要领原来的机子的情况，'+#13+'删除后只能重新报损'+#13+'请慎重！！！！请慎重！！！！'+#13+'此种情况属于极特殊性情况',mtInformation,[mbYes,mbNo],0)=mryes then
begin
with sp_save.Parameters do
begin
ParamValues['@lx']:=8;
ParamValues['@act']:=4;
ParamValues['@hhdd']:=bsSkinDBText1.Caption;
end;
sp_save.ExecProc;
sp_bs.Close;
sp_bs.Open;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -