uzldj_ed.~pas
来自「很好的汽车管理系统 很实用的 谢谢合作」· ~PAS 代码 · 共 1,047 行 · 第 1/3 页
~PAS
1,047 行
Edit8.Text:=DM.ADODSZLDJ.FieldByName('cssdj').AsString;
Edit9.Text:=DM.ADODSZLDJ.FieldByName('fclc').AsString;
Edit10.Text:=DM.ADODSZLDJ.FieldByName('fcrq').AsString;
Edit11.Text:=DM.ADODSZLDJ.FieldByName('fcsj').AsString;
Edit12.Text:=DM.ADODSZLDJ.FieldByName('yuszj').AsString;
Edit13.Text:=DM.ADODSZLDJ.FieldByName('xzts').AsString;
Edit14.Text:=DM.ADODSZLDJ.FieldByName('xzzj').AsString;
Edit15.Text:=DM.ADODSZLDJ.FieldByName('yj').AsString;
Edit16.Text:=DM.ADODSZLDJ.FieldByName('yingszj').AsString;
Edit17.Text:=DM.ADODSZLDJ.FieldByName('ssje').AsString;
Edit18.Text:=DM.ADODSZLDJ.FieldByName('jbr').AsString;
Memo1.Text:=DM.ADODSZLDJ.FieldByName('bz').AsString;
CheckBox1.Checked:=DM.ADODSZLDJ.FieldByName('sfxz').AsBoolean;
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※
★★关于本函数的详细说明或实例参见《Delphi编程词典》基础知识部分，该部分对所有对
象都有详细语法说明和最实用的应用实例。
★★吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开
发资源，同时为您提供最周到的技术支持和服务。
★★技术支持及升级请访问www.cccxy.com www.mingrisoft.com 价值无限，服务无限
※--------※--------※--------※--------※--------※--------※--------※--------※}
procedure TZLDJ_ED.Posting;
var
pp:array [0..18] of string;
begin
if ActionCD='N' then
BEGIN
with DM.QZLDJ do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO ZLDJ(cph,khxm,zldjj,zlqx,xslc,csdj,cssdj,fclc,fcrq,fcsj,yuszj,xzts,xzzj,yj,yingszj,ssje,jbr,bz,sfxz,hth)');
SQL.Add('Values(:车牌号,:客户姓名,:租赁单价,:租赁期限,:限驶里程,:超时单价,:超驶单价,:发车里程,:发车日期,:发车时间,:预收租金,:继租天数,:继租租金,:押金,:应收租金,:实收金额,:经办人,:备注,:是否继租,:合同号)');
Parameters.Items[0].Value:=ComboBox1.Text;
pp[0]:=ComboBox1.Text;
Parameters.Items[1].Value:=ComboBox2.Text;
pp[1]:= ComboBox2.text;
Parameters.Items[2].Value:=Edit4.Text;
pp[2]:= edit4.text;
Parameters.Items[3].Value:=Edit5.Text;
pp[3]:= edit5.text;
Parameters.Items[4].Value:=Edit6.Text;
pp[4]:= edit6.text;
Parameters.Items[5].Value:=Edit7.Text;
pp[5]:= edit7.text;
Parameters.Items[6].Value:=Edit8.Text;
pp[6]:= edit8.text;
Parameters.Items[7].Value:=Edit9.Text;
pp[7]:= edit9.text;
Parameters.Items[8].Value:=Edit10.Text;
pp[8]:= edit10.text;
Parameters.Items[9].Value:=Edit11.Text;
pp[9]:= edit11.text;
Parameters.Items[10].Value:=Edit12.Text;
pp[10]:= edit12.text;
Parameters.Items[11].Value:=Edit13.Text;
pp[11]:= edit13.text;
Parameters.Items[12].Value:=Edit14.Text;
pp[12]:= edit14.text;
Parameters.Items[13].Value:=Edit15.Text;
pp[13]:= edit15.text;
Parameters.Items[14].Value:=Edit16.Text;
pp[14]:= edit16.text;
Parameters.Items[15].Value:=Edit17.Text;
Parameters.Items[16].Value:=Edit18.Text;
pp[15]:= edit18.text;
Parameters.Items[17].Value:=Memo1.Text;
Parameters.Items[18].Value:=CheckBox1.Checked;
pp[16]:= booltostr(checkbox1.Checked,False);
Parameters.Items[19].Value:=Edit1.Text;
pp[17]:= Edit1.Text;
Prepared:=True;
ExecSQL;
/////
Close;
SQL.Clear;
SQL.Add('INSERT INTO zljs(cph,khxm,zldjj,zlqx,xslc,csdj,cssdj,fclc,fcrq,fcsj,yuszj,xzts,xzzj,yj,yingszj,jbr,sfxz,hth)');
SQL.Add('Values(:车牌号,:客户姓名,:租赁单价,:租赁期限,:限驶里程,:超时单价,:超驶单价,:发车里程,:发车日期,:发车时间,:预收租金,:继租天数,:继租租金,:押金,:应收租金,:经办人,:是否继租,:合同号)');
Parameters.Items[0].Value:=pp[0];
Parameters.Items[1].Value:=pp[1];
Parameters.Items[2].Value:=pp[2];
Parameters.Items[3].Value:=pp[3];
Parameters.Items[4].Value:=pp[4];
Parameters.Items[5].Value:=pp[5];
Parameters.Items[6].Value:=pp[6];
Parameters.Items[7].Value:=pp[7];
Parameters.Items[8].Value:=pp[8];
Parameters.Items[9].Value:=pp[9];
Parameters.Items[10].Value:=pp[10];
Parameters.Items[11].Value:=pp[11];
Parameters.Items[12].Value:=pp[12];
Parameters.Items[13].Value:=pp[13];
Parameters.Items[14].Value:=pp[14];
Parameters.Items[15].Value:=pp[15];
Parameters.Items[16].Value:=strtobool(pp[16]);
Parameters.Items[17].Value:=pp[17];
Prepared:=True;
ExecSQL;
////
end;
END else
if ActionCD='M' then
begin
With DM.QZLDJ DO
begin
Close;
SQL.Clear;
SQL.Add('update ZLDJ Set cph=:车牌号,');
SQL.Add('khxm=:客户姓名,zldjj=:租赁单价,zlqx=:租赁期限,xslc=:限驶里程,'); //bh=:, id
SQL.Add('csdj=:超时单价,cssdj=:超驶单价,fclc=:发车里程,fcrq=:发车日期,');
SQL.Add('fcsj=:发车时间,yuszj=:预收租金,xzts=:继租天数,xzzj=:继租租金,');
SQL.Add('yj=:押金,yingszj=:应收租金,ssje=:实收金额,jbr=:经办人,');
SQL.Add('bz=:备注,sfxz=:是否继租 Where hth=:合同号');
Parameters.Items[0].Value:=ComboBox1.Text;
pp[0]:=ComboBox1.Text;
Parameters.Items[1].Value:=ComboBox2.Text;
pp[1]:= ComboBox2.text;
Parameters.Items[2].Value:=Edit4.Text;
pp[2]:= edit4.text;
Parameters.Items[3].Value:=Edit5.Text;
pp[3]:= edit5.text;
Parameters.Items[4].Value:=Edit6.Text;
pp[4]:= edit6.text;
Parameters.Items[5].Value:=Edit7.Text;
pp[5]:= edit7.text;
Parameters.Items[6].Value:=Edit8.Text;
pp[6]:= edit8.text;
Parameters.Items[7].Value:=Edit9.Text;
pp[7]:= edit9.text;
Parameters.Items[8].Value:=Edit10.Text;
pp[8]:= edit10.text;
Parameters.Items[9].Value:=Edit11.Text;
pp[9]:= edit11.text;
Parameters.Items[10].Value:=Edit12.Text;
pp[10]:= edit12.text;
Parameters.Items[11].Value:=Edit13.Text;
pp[11]:= edit13.text;
Parameters.Items[12].Value:=Edit14.Text;
pp[12]:= edit14.text;
Parameters.Items[13].Value:=Edit15.Text;
pp[13]:= edit15.text;
Parameters.Items[14].Value:=Edit16.Text;
pp[14]:= edit16.text;
Parameters.Items[15].Value:=Edit17.Text;
Parameters.Items[16].Value:=Edit18.Text;
pp[15]:= edit18.text;
Parameters.Items[17].Value:=Memo1.Text;
Parameters.Items[18].Value:=CheckBox1.Checked;
pp[16]:= booltostr(checkbox1.Checked,False);
Parameters.Items[19].Value:=Edit1.Text;
pp[17]:= edit1.text;
Parameters.Items[19].Value:=DM.ADODSZLDJ.FieldByName('hth').AsString;
Prepared:=true;
ExecSQL;
/////////////////////
Close;
SQL.Clear;
SQL.Add('update zljs Set cph=:车牌号,');
SQL.Add('khxm=:客户姓名,zldjj=:租赁单价,zlqx=:租赁期限,xslc=:限驶里程,');
SQL.Add('csdj=:超时单价,cssdj=:超驶单价,fclc=:发车里程,fcrq=:发车日期,');
SQL.Add('fcsj=:发车时间,yuszj=:预收租金,xzts=:继租天数,xzzj=:继租租金,');
SQL.Add('yj=:押金,yingszj=:应收租金,jbr=:经办人,');
SQL.Add('sfxz=:是否继租 Where hth=:合同号');
Parameters.Items[0].Value:=pp[0];
Parameters.Items[1].Value:=pp[1];
Parameters.Items[2].Value:=pp[2];
Parameters.Items[3].Value:=pp[3];
Parameters.Items[4].Value:=pp[4];
Parameters.Items[5].Value:=pp[5];
Parameters.Items[6].Value:=pp[6];
Parameters.Items[7].Value:=pp[7];
Parameters.Items[8].Value:=pp[8];
Parameters.Items[9].Value:=pp[9];
Parameters.Items[10].Value:=pp[10];
Parameters.Items[11].Value:=pp[11];
Parameters.Items[12].Value:=pp[12];
Parameters.Items[13].Value:=pp[13];
Parameters.Items[14].Value:=pp[14];
Parameters.Items[15].Value:=pp[15];
Parameters.Items[16].Value:=strtobool(pp[16]);
Parameters.Items[17].Value:=DM.ADODSZLDJ.FieldByName('hth').AsString;
Prepared:=true;
ExecSQL;
/////////////////////////////
end;
end;
end;
procedure TZLDJ_ED.ENA;//控件可用
var
i:integer;
begin
for i:=ComponentCount-1 downto 0 do
begin
if (Components[i] is TEdit) then
begin
TEdit(Components[i]).Color:=clWindow;
TEdit(Components[i]).ReadOnly:=False;
end;
if (Components[i] is TDateTimePicker)then
begin
TDateTimePicker(Components[i]).Color:=clWindow;
TDateTimePicker(Components[i]).Enabled:=true;
end;
end;
ComboBox1.Color:=clWindow;
ComboBox1.Enabled:=True;
ComboBox2.Color:=clWindow;
ComboBox2.Enabled:=True;
Memo1.Color := clWindow;
Memo1.ReadOnly := False;
SpeedButton1.Enabled:=False;//添加
SpeedButton2.Enabled:=False;//修改
SpeedButton3.Enabled:=True;//保存
SpeedButton4.Enabled:=True;//取消
Panel1.Enabled:=True;
end;
procedure TZLDJ_ED.DIS;//保存记录后使所有的控件不可用
var
i:integer;
begin
for i:=ComponentCount-1 downto 0 do
begin
if (Components[i] is Tedit) then
begin
TEdit(Components[i]).Color:=$00d8d8d8;
TEdit(Components[i]).ReadOnly:=true;
end;
if (Components[i] is TDateTimePicker)then
begin
TDateTimePicker(Components[i]).Color:=$00D8D8D8;
TDateTimePicker(Components[i]).Enabled:=false;
end;
end;
ComboBox1.Color:= $00D8D8D8;
ComboBox1.Enabled:=False;
ComboBox2.Color:= $00D8D8D8;
ComboBox2.Enabled:=False;
Memo1.Color := $00D8D8D8;
Memo1.ReadOnly := true;
SpeedButton1.Enabled:=True;//新增
SpeedButton2.Enabled:=True;//修改
SpeedButton3.Enabled:=False;//保存
SpeedButton4.Enabled:=False;//取消
Panel1.Enabled:=False;
end;
procedure TZLDJ_ED.CLS;//清除控件中的所有内容
var
i:integer;
begin
for i:=ComponentCount-1 downto 0 do
begin
if(Components[i] is tedit) then
TEdit(Components[i]).Clear;
end;
Memo1.Clear;
end;
procedure TZLDJ_ED.SpeedButton5Click(Sender: TObject);
begin
DIS;
ActionCD:='';
CLOSE;
end;
procedure TZLDJ_ED.DateTimePicker1Change(Sender: TObject);
begin
Edit10.Text:=DateToStr(DateTimePicker1.Date);
end;
procedure TZLDJ_ED.DateTimePicker2Change(Sender: TObject);
begin
Edit11.Text:=TimeToStr(DateTimePicker2.Time);
end;
procedure TZLDJ_ED.FormCreate(Sender: TObject);
begin
with DM.QZLDJ do
begin
Close;
SQL.Clear;
SQL.Add('select * from ZLDJ');
Open;
end;
DM.ADODSZLDJ.Open;
with dm.QZLJS do
begin
close;
sql.Clear;
sql.Add('select * from zljs');
open;
end;
dm.ADODSZLJS.Open;
DateTimePicker1.Date:=now;
DateTimePicker2.DateTime:=now;
if ComboBox1.Text<>'' then
ComboBox1.Text:=DM.ADODSZLDJ.FieldByName('cph').Value
else
ComboBox1.Text:=Trim(ComboBox1.Text);
if ComboBox2.Text<>'' then
ComboBox2.Text:=DM.ADODSZLDJ.FieldByName('khxm').Value
else
ComboBox2.Text:=Trim(ComboBox2.Text);
end;
procedure TZLDJ_ED.FormShow(Sender: TObject);
begin
DIS; //所有控件不可用
if ActionCD = 'M' then
GetAll // 填入当前记录的内容
else if ActionCD = 'N' then
begin
CLS; //清除所有内容
ENA; //所有控件可用
end;
end;
procedure TZLDJ_ED.SpeedButton1Click(Sender: TObject);
begin
CLS; //清除所有的控件内容
ENA; //使所有的控件可用
ComboBox1.Clear;
ComboBox2.Clear;
DateTimePicker1.Date:=now;
DateTimePicker2.Time:=now;
ActionCD := 'N'; //新增记录标记
bh;
CheckBox1.Checked:=False;
Edit4.Text:='0';
Edit5.Text:='0';
Edit9.Text:='0';
Edit13.Text:='0';
Edit14.Text:='0';
Edit15.Text:='0';
Edit16.Text:='0';
Edit17.Text:='0';
ComboBox1.SetFocus;
end;
procedure TZLDJ_ED.SpeedButton2Click(Sender: TObject);
begin
ENA; //使所有的控件可用
ACtionCD := 'M'; //修改记录标记
end;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?