uclxx_ed.~pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· ~PAS 代码 · 共 1,115 行 · 第 1/3 页

~PAS
1,115 行
字号
123
  end;
  if (Edit21.Text='') then
  begin
    Result:=False;
    Application.MessageBox('排放量不能为空！','提示信息',0+MB_ICONINFORMATION);
    exit;
  end;
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★关于本函数的详细说明或实例参见《Delphi编程词典》基础知识部分，该部分对所有对
 象都有详细语法说明和最实用的应用实例。

 ★★吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开
 发资源，同时为您提供最周到的技术支持和服务。

 ★★技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限

※--------※--------※--------※--------※--------※--------※--------※--------※}
procedure TCLXX_ED.GetAll;
begin
    Edit1.Text:=DM.ADODSCLXX.FieldByName('clbh').AsString;
    Edit2.Text:=DM.ADODSCLXX.FieldByName('clmc').AsString;
    Edit3.Text:=DM.ADODSCLXX.FieldByName('cllx').AsString;
    Edit4.Text:=DM.ADODSCLXX.FieldByName('cph').AsString;
    Edit5.Text:=DM.ADODSCLXX.fieldByName('clys').AsString;
    Edit6.Text:=DM.ADODSCLXX.FieldByName('fdjh').AsString;
    Edit7.Text:=DM.ADODSCLXX.FieldByName('dpbh').AsString;
    Edit11.Text:=DM.ADODSCLXX.FieldByName('bxdh').AsString;
    ComboBox3.Text:=DM.ADODSCLXX.FieldByName('bxlx').AsString;
    Edit13.Text:=DM.ADODSCLXX.FieldByName('bxgmrq').AsString;
    Edit14.Text:=DM.ADODSCLXX.FieldByName('bxjzrq').AsString;
    ComboBox2.Text:=DM.ADODSCLXX.FieldByName('bxgs').AsString;
    Edit9.Text:=DM.ADODSCLXX.FieldByName('yyzh').AsString;
    Edit8.Text:=DM.ADODSCLXX.FieldByName('rylx').AsString;
    Edit16.Text:=DM.ADODSCLXX.FieldByName('qccj').AsString;
    Edit17.Text:=DM.ADODSCLXX.FieldByName('gmrq').AsString;
    Edit18.Text:=DM.ADODSCLXX.FieldByName('bfrq').AsString;
    Edit19.Text:=DM.ADODSCLXX.FieldByName('whsj').AsString;
    Edit20.Text:=DM.ADODSCLXX.FieldByName('ecwhsj').AsString;
    Edit10.Text:=DM.ADODSCLXX.FieldByName('fjfh').AsString;
    Edit21.Text:=DM.ADODSCLXX.FieldByName('pfl').AsString;
    ComboBox1.Text:=DM.ADODSCLXX.FieldByName('clzt').AsString;
    Memo1.Text:=DM.ADODSCLXX.FieldByName('bz').AsString;
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★关于本函数的详细说明或实例参见《Delphi编程词典》基础知识部分，该部分对所有对
 象都有详细语法说明和最实用的应用实例。

 ★★吉林省明日科技有限公司愿为您提供最实用、最全面、最完整和最方便的编程技术和开
 发资源，同时为您提供最周到的技术支持和服务。

 ★★技术支持及升级请访问www.cccxy.com   www.mingrisoft.com   价值无限，服务无限

※--------※--------※--------※--------※--------※--------※--------※--------※}
procedure TCLXX_ED.Posting;
begin
  if ActionCD='N' then
  BEGIN
  with DM.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO CLXX(clmc,cllx,cph,clys,fdjh,dpbh,bxdh,bxlx,bxgmrq,bxjzrq,bxgs,yyzh,rylx,qccj,gmrq,bfrq,whsj,ecwhsj,fjfh,pfl,clzt,bz,clbh)');
    SQL.Add('Values(:车辆名称,:车辆类型,:车牌号,:车辆颜色,:发动机号,:底盘编号,:保险单号,:保险类型,:保险购买日期,:保险截止日期,:保险公司,:营运证号,:燃油类型,:汽车厂家,:购买日期,:报废日期,:维护时间,:二次维护时间,:附加费号,:排放量,:车辆状态,:备注,:车辆编号)');
    Parameters.Items[0].Value:=Edit2.Text;
    Parameters.Items[1].Value:=Edit3.Text;
    Parameters.Items[2].Value:=Edit4.Text;
    Parameters.Items[3].Value:=Edit5.Text;
    Parameters.Items[4].Value:=Edit6.Text;
    Parameters.Items[5].Value:=Edit7.Text;
    Parameters.Items[6].Value:=Edit11.Text;
    Parameters.Items[7].Value:=ComboBox3.Text;
    Parameters.Items[8].Value:=Edit13.Text;
    Parameters.Items[9].Value:=Edit14.Text;
    Parameters.Items[10].Value:=ComboBox2.Text;
    Parameters.Items[11].Value:=Edit9.Text;
    Parameters.Items[12].Value:=Edit8.Text;
    Parameters.Items[13].Value:=Edit16.Text;
    Parameters.Items[14].Value:=Edit17.Text;
    Parameters.Items[15].Value:=Edit18.Text;
    Parameters.Items[16].Value:=Edit19.Text;
    Parameters.Items[17].Value:=Edit20.Text;
    Parameters.Items[18].Value:=Edit10.Text;
    Parameters.Items[19].Value:=Edit21.Text;
    Parameters.Items[20].Value:=ComboBox1.Text;
    Parameters.Items[21].Value:=Memo1.Text;
    Parameters.Items[22].Value:=Edit1.Text;
    Prepared:=True;
    ExecSQL;
  end;
  END else
  if ActionCD='M' then
  begin
    With DM.QCLXX DO
    begin
      Close;
      SQL.Clear;
      SQL.Add('update CLXX Set clmc=:车辆名称,');
      SQL.Add('cllx=:车辆类型,cph=:车牌号,clys=:车辆颜色,fdjh=:发动机号,');
      SQL.Add('dpbh=:底盘编号,bxdh=:保险单号,bxlx=:保险类型,bxgmrq=:保险购买日期,');
      SQL.Add('bxjzrq=:保险截止日期,bxgs=:保险公司,yyzh=:营运证号,rylx=:燃油类型,');
      SQL.Add('qccj=:汽车厂家,gmrq=:购买日期,bfrq=:报废日期,whsj=:维护时间,');
      SQL.Add('ecwhsj=:二次维护时间,fjfh=:附加费号,pfl=:排放量,clzt=:车辆状态,');
      SQL.Add('bz=:备注 Where clbh=:车辆编号');
      Parameters.Items[0].Value:=Edit2.Text;
      Parameters.Items[1].Value:=Edit3.Text;
      Parameters.Items[2].Value:=Edit4.Text;
      Parameters.Items[3].Value:=Edit5.Text;
      Parameters.Items[4].Value:=Edit6.Text;
      Parameters.Items[5].Value:=Edit7.Text;
      Parameters.Items[6].Value:=Edit11.Text;
      Parameters.Items[7].Value:=ComboBox3.Text;
      Parameters.Items[8].Value:=Edit13.Text;
      Parameters.Items[9].Value:=Edit14.Text;
      Parameters.Items[10].Value:=ComboBox2.Text;
      Parameters.Items[11].Value:=Edit9.Text;
      Parameters.Items[12].Value:=Edit8.Text;
      Parameters.Items[13].Value:=Edit16.Text;
      Parameters.Items[14].Value:=Edit17.Text;
      Parameters.Items[15].Value:=Edit18.Text;
      Parameters.Items[16].Value:=Edit19.Text;
      Parameters.Items[17].Value:=Edit20.Text;
      Parameters.Items[18].Value:=Edit10.Text;
      Parameters.Items[19].Value:=Edit21.Text;
      Parameters.Items[20].Value:=ComboBox1.Text;
      Parameters.Items[21].Value:=Memo1.Text;
      Parameters.Items[22].Value:=DM.ADODSCLXX.FieldByName('clbh').AsString;
      Prepared:=true;
      ExecSQL;
    end;
  end;
end;
procedure TCLXX_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;
  end;
  DateTimePicker1.Color:=clWindow;
  DateTimePicker1.Enabled:=True;
  DateTimePicker2.Color:=clWindow;
  DateTimePicker2.Enabled:=True;
  DateTimePicker3.Color:=clWindow;
  DateTimePicker3.Enabled:=True;
  DateTimePicker4.Color:=clWindow;
  DateTimePicker4.Enabled:=True;
  DateTimePicker5.Color:=clWindow;
  DateTimePicker5.Enabled:=True;
  DateTimePicker6.Color:=clWindow;
  DateTimePicker6.Enabled:=True;
  ComboBox1.Color:=clWindow;
  ComboBox1.Enabled:=True;
  ComboBox2.Color:=clWindow;
  ComboBox2.Enabled:=True;
  ComboBox3.Color:=clWindow;
  ComboBox3.Enabled:=True;
  DBImage1.Color:=clWindow;
  DBImage1.ReadOnly:=False;
  Memo1.Color := clWindow;
  Memo1.ReadOnly := False;
  SpeedButton1.Enabled:=False;
  SpeedButton2.Enabled:=False;
  SpeedButton3.Enabled:=True;
  SpeedButton4.Enabled:=True;
  Panel1.Enabled:=True;
end;
procedure TCLXX_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;
  DateTimePicker1.Color:=$00d8d8d8;
  DateTimePicker1.Enabled:=False;
  DateTimePicker2.Color:=$00d8d8d8;
  DateTimePicker2.Enabled:=False;
  DateTimePicker3.Color:=$00d8d8d8;
  DateTimePicker3.Enabled:=False;
  DateTimePicker4.Color:=$00d8d8d8;
  DateTimePicker4.Enabled:=False;
  DateTimePicker5.Color:=$00d8d8d8;
  DateTimePicker5.Enabled:=False;
  DateTimePicker6.Color:=$00d8d8d8;
  DateTimePicker6.Enabled:=False;
  ComboBox1.Color:= $00D8D8D8;
  ComboBox1.Enabled:=False;
  ComboBox2.Color:= $00D8D8D8;
  ComboBox2.Enabled:=False;
  ComboBox3.Color:= $00D8D8D8;
  ComboBox3.Enabled:=False;
  DBImage1.Color:=clBtnFace;
  DBImage1.ReadOnly:=True;
  Memo1.Color := $00D8D8D8;
  Memo1.ReadOnly := true;
  SpeedButton1.Enabled:=True;
  SpeedButton2.Enabled:=True;
  SpeedButton3.Enabled:=False;
  SpeedButton4.Enabled:=False;
  Panel1.Enabled:=False;
end;
procedure TCLXX_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 TCLXX_ED.SpeedButton5Click(Sender: TObject);
begin
  DIS;
  ActionCD:='';
  Close;
end;

procedure TCLXX_ED.DateTimePicker1Change(Sender: TObject);
begin
  Edit13.Text:=DateToStr(DateTimePicker1.Date);
end;

procedure TCLXX_ED.DateTimePicker4Change(Sender: TObject);
begin
  Edit19.Text:=DateToStr(DateTimePicker4.Date);
end;

procedure TCLXX_ED.DateTimePicker3Change(Sender: TObject);
begin
  Edit17.Text:=DateToStr(DateTimePicker3.Date);
end;

procedure TCLXX_ED.DateTimePicker2Change(Sender: TObject);
begin
  Edit14.Text:=DateToStr(DateTimePicker2.Date);
end;

procedure TCLXX_ED.DateTimePicker5Change(Sender: TObject);
begin
  Edit20.Text:=DateToStr(DateTimePicker5.Date);
end;

procedure TCLXX_ED.DateTimePicker6Change(Sender: TObject);
begin
  Edit18.Text:=DateToStr(DateTimePicker6.Date);
end;

procedure TCLXX_ED.FormCreate(Sender: TObject);
begin
  with DM.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from CLXX');
    Open;
  end;
  dm.ADODSCLXX.Open;
end;

procedure TCLXX_ED.FormShow(Sender: TObject);
begin
  DIS;
  if ActionCD = 'M' then
    GetAll
  else if ActionCD = 'N' then
  begin
    CLS;
    ENA;
  end;
  if ComboBox1.Text<>'' then
    ComboBox1.Text:=DM.ADODSCLXX.FIELDBYNAME('clzt').Value
  else
    ComboBox1.Text:=Trim(ComboBox1.Text);
  if ComboBox2.Text<>'' then
    ComboBox2.Text:=DM.ADODSCLXX.FIELDBYNAME('bxgs').Value
  else
    ComboBox2.Text:=Trim(ComboBox2.Text);
  if ComboBox3.Text<>'' then
    ComboBox3.Text:=DM.ADODSCLXX.FIELDBYNAME('bxlx').Value
  else
    ComboBox3.Text:=Trim(ComboBox3.Text);
  DateTimePicker1.Date:=StrToDate(Edit13.Text);
  DateTimePicker2.Date:=StrToDate(Edit14.Text);
  DateTimePicker3.Date:=StrToDate(Edit17.Text);
  DateTimePicker4.Date:=StrToDate(Edit19.Text);
  DateTimePicker5.Date:=StrToDate(Edit20.Text);
  DateTimePicker6.Date:=StrToDate(Edit18.Text);
end;

procedure TCLXX_ED.SpeedButton1Click(Sender: TObject);
begin
  CLS;
  ENA;
  DateTimePicker1.Date:=now;
  DateTimePicker2.Date:=now;
  DateTimePicker3.Date:=now;
  DateTimePicker4.Date:=now;
  DateTimePicker5.Date:=now;
  DateTimePicker6.Date:=now;
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  ActionCD := 'N';
  bh;
  Edit2.SetFocus;
end;

procedure TCLXX_ED.SpeedButton2Click(Sender: TObject);
begin
  ENA;
  ACtionCD := 'M';
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★《Delphi编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者
 的技术最全、案例最多和使用最方便的Delphi编程技术词典。它包含30个实际项目的开发过
 程和源码（每月新增加一个实际开发项目）；最完整、最全面、最实用的函数、控件和基础
 技术大全；上千个编程技巧和几百个典型实例；同时还提供了编程中所需的各种素材和资源。
 价值无限，服务无限。技术服务及升级请访问www.cccxy.com , 电话：（0431）4978981,49
 78982

 ★★《Delphi编程词典》软件源码项目部分对所有代码都作了详细的注释和说明，同时提供
 了所有源码项目详尽、完整的开发过程文档和录像。技术支持及升级请访问www.cccxy.com
 电话：（0431）4978981,4978982

 ★★《Delphi编程词典》对所有实例的开发过程和设计思路都作了详细的介绍。技术支持及
 升级请访问www.cccxy.com   电话：（0431）4978981,4978982

 ★★如果您在使用《Delphi编程词典》中有疑问或好的建议，请访问我公司"编程词典"技术
 服务网站www.cccxy.com或拨打我公司电话（0431-4978981，4978982），我们愿为广大编程
 者提供最好的产品和最佳的服务。对于提出好的建议的读者，我们将给与奖励，详情请访问
 www.cccxy.com。电话：（0431）4978981,4978982

※--------※--------※--------※--------※--------※--------※--------※--------※}

procedure TCLXX_ED.SpeedButton3Click(Sender: TObject);
begin
  if (cansave) then
  begin
    Posting;
    DIS;
    Application.MessageBox('保存成功!','提示!',64);
    DM.ADODSCLXX.Close;
    DM.ADODSCLXX.Open;
    actioncd:='';
    CLXX_ED.Close;
  end;
end;
{※--------※--------※--------※--------※--------※--------※--------※--------※

 ★★《Delphi编程词典》软件是由吉林省明日科技有限公司开发的面向程序员和编程爱好者
123

uclxx_ed.~pas - 源码说明

本页面展示了「很好的汽车管理系统 很实用的 谢谢合作」中的 uclxx_ed.~pas 源码文件，采用 ~PAS 编程语言编写，共 1,115 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与汽车管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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