ukhxx_ed.~pas

来自「很好的汽车管理系统很实用的谢谢合作」· ~PAS 代码 · 共 1,114 行 · 第 1/3 页
~PAS
1,114 行
    SQL.Add('d_xm,d_xb,d_yb,d_zjm,d_zjh,d_yddh,d_gddh,');
    SQL.Add('d_cz,d_dzyj,d_jtdz,q_qymc,q_frdb,q_zczj,');
    SQL.Add('q_qyzch,q_zzjgdm,q_qydz,bz,k_bh)');
    SQL.Add('Values(:客户姓名,:客户性别,:证件名,:证件号,');
    SQL.Add(':客户等级,:移动电话,:固定电话,:传真,:邮编,');
    SQL.Add(':电子邮件,:驾驶证号,:家庭住址,:编号,:姓名,');
    SQL.Add(':性别,:邮编1,:证件名1,:证件号1,:移动电话1,');
    SQL.Add(':固定电话1,:传真1,:电子邮件1,:家庭地址1,');
    SQL.Add(':企业名称,:法人代表,:注册资金,:企业注册号,');
    SQL.Add(':组织机构代码,:企业地址,:备注,:客户编号)');
    Parameters.Items[0].Value:=Edit2.Text;
    Parameters.Items[1].Value:=ComboBox1.Text;
    Parameters.Items[2].Value:=Edit4.Text;
    Parameters.Items[3].Value:=Edit5.Text;
    Parameters.Items[4].Value:=ComboBox3.Text;
    Parameters.Items[5].Value:=Edit7.Text;
    Parameters.Items[6].Value:=Edit8.Text;
    Parameters.Items[7].Value:=Edit9.Text;
    Parameters.Items[8].Value:=Edit10.Text;
    Parameters.Items[9].Value:=Edit11.Text;
    Parameters.Items[10].Value:=Edit12.Text;
    Parameters.Items[11].Value:=Edit13.Text;
    Parameters.Items[12].Value:=Edit14.Text;
    Parameters.Items[13].Value:=Edit15.Text;
    Parameters.Items[14].Value:=ComboBox2.Text;
    Parameters.Items[15].Value:=Edit17.Text;
    Parameters.Items[16].Value:=Edit18.Text;
    Parameters.Items[17].Value:=Edit19.Text;
    Parameters.Items[18].Value:=Edit20.Text;
    Parameters.Items[19].Value:=Edit21.Text;
    Parameters.Items[20].Value:=Edit22.Text;
    Parameters.Items[21].Value:=Edit23.Text;
    Parameters.Items[22].Value:=Edit24.Text;
    Parameters.Items[23].Value:=Edit25.Text;
    Parameters.Items[24].Value:=Edit26.Text;
    Parameters.Items[25].Value:=Edit27.Text;
    Parameters.Items[26].Value:=Edit28.Text;
    Parameters.Items[27].Value:=Edit29.Text;
    Parameters.Items[28].Value:=Edit30.Text;
    Parameters.Items[29].Value:=Memo1.Text;
    Parameters.Items[30].Value:=Edit1.Text;
    Prepared:=True;
    ExecSQL;
  end;
  END else
  if ActionCD='M' then
  begin
    With DM.QKHXX DO
    begin
      Close;
      SQL.Clear;
      SQL.Add('update KHXX Set k_khxm=:客户姓名,');
      SQL.Add('k_khxb=:客户性别,k_zjm=:证件名,k_zjh=:证件号,k_khdj=:客户等级,');   //bh=:,   id
      SQL.Add('k_yddh=:移动电话,k_gddh=:固定电话,k_cz=:传真,k_yb=:邮编,');
      SQL.Add('k_dzyj=:电子邮件,k_jszh=:驾驶证号,k_jtzz=:家庭住址,d_bh=:编号,');
      SQL.Add('d_xm=:姓名,d_xb=:性别,d_yb=:邮编1,d_zjm=:证件名1,');
      SQL.Add('d_zjh=:证件号1,d_yddh=:移动电话1,d_gddh=:固定电话1,');
      SQL.Add('d_cz=:传真1,d_dzyj=:电子邮件1,d_jtdz=:家庭地址1,q_qymc=:企业名称,');
      SQL.Add('q_frdb=:法人代表,q_zczj=:注册资金,q_qyzch=:企业注册号,q_zzjgdm=:组织机构代码,');
      SQL.Add('q_qydz=:企业地址,bz=:备注 Where k_bh=:客户编号');
      Parameters.Items[0].Value:=Edit2.Text;
      Parameters.Items[1].Value:=ComboBox1.Text;
      Parameters.Items[2].Value:=Edit4.Text;
      Parameters.Items[3].Value:=Edit5.Text;
      Parameters.Items[4].Value:=ComboBox3.Text;
      Parameters.Items[5].Value:=Edit7.Text;
      Parameters.Items[6].Value:=Edit8.Text;
      Parameters.Items[7].Value:=Edit9.Text;
      Parameters.Items[8].Value:=Edit10.Text;
      Parameters.Items[9].Value:=Edit11.Text;
      Parameters.Items[10].Value:=Edit12.Text;
      Parameters.Items[11].Value:=Edit13.Text;
      Parameters.Items[12].Value:=Edit14.Text;
      Parameters.Items[13].Value:=Edit15.Text;
      Parameters.Items[14].Value:=ComboBox2.Text;
      Parameters.Items[15].Value:=Edit17.Text;
      Parameters.Items[16].Value:=Edit18.Text;
      Parameters.Items[17].Value:=Edit19.Text;
      Parameters.Items[18].Value:=Edit20.Text;
      Parameters.Items[19].Value:=Edit21.Text;
      Parameters.Items[20].Value:=Edit22.Text;
      Parameters.Items[21].Value:=Edit23.Text;
      Parameters.Items[22].Value:=Edit24.Text;
      Parameters.Items[23].Value:=Edit25.Text;
      Parameters.Items[24].Value:=Edit26.Text;
      Parameters.Items[25].Value:=Edit27.Text;
      Parameters.Items[26].Value:=Edit28.Text;
      Parameters.Items[27].Value:=Edit29.Text;
      Parameters.Items[28].Value:=Edit30.Text;
      Parameters.Items[29].Value:=Memo1.Text;
      Parameters.Items[30].Value:=DM.ADODSKHXX.FieldByName('k_bh').AsString;
      Prepared:=true;
      ExecSQL;
    end;
  end;
end;
procedure TKHXX_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;
  ComboBox1.Color:=clWindow;
  ComboBox1.Enabled:=True;
  ComboBox2.Color:=clWindow;
  ComboBox2.Enabled:=True;
  ComboBox3.Color:=clWindow;
  ComboBox3.Enabled:=True;
  DBImage1.Color:=clWindow;
  DBImage1.ReadOnly:=True;
  DBImage2.Color:=clWindow;
  DBImage2.ReadOnly:=True;
  Memo1.Color := clWindow;
  Memo1.ReadOnly := False;
  SpeedButton1.Enabled:=False;
  SpeedButton2.Enabled:=False;
  SpeedButton3.Enabled:=True;
  SpeedButton4.Enabled:=True;
  Panel1.Enabled:=True;
end;
procedure TKHXX_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;
  end;
  ComboBox1.Color:= $00D8D8D8;
  ComboBox1.Enabled:=False;
  ComboBox2.Color:=$00D8D8D8;
  ComboBox2.Enabled:=False;
  ComboBox3.Color:=$00D8D8D8;
  ComboBox3.Enabled:=False;
  DBImage1.Color:=$00D8D8D8;
  DBImage1.ReadOnly:=False;
  DBImage2.Color:=$00D8D8D8;
  DBImage2.ReadOnly:=False;
  Memo1.Color := $00D8D8D8;
  Memo1.ReadOnly := true;
  SpeedButton1.Enabled:=True;
  SpeedButton2.Enabled:=True;
  SpeedButton3.Enabled:=False;
  SpeedButton4.Enabled:=False;
  Panel1.Enabled:=False;
end;
procedure TKHXX_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 TKHXX_ED.SpeedButton5Click(Sender: TObject);
begin
  DIS;
  ActionCD:='';
  Close;
end;

procedure TKHXX_ED.FormCreate(Sender: TObject);
begin
  with DM.QKHXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from KHXX');
    Open;
  end;
end;

procedure TKHXX_ED.FormShow(Sender: TObject);
begin
  DIS;
  if ActionCD = 'M' then
    GetAll
  else if ActionCD = 'N' then
  begin
    CLS;
    ENA;
  end;
  DM.ADODSKHXX.Open;
  if ComboBox1.Text<>'' then
    ComboBox1.Text:=DM.ADODSKHXX.FIELDBYNAME('k_khxb').Value
  else
    ComboBox1.Text:=Trim(ComboBox1.Text);
  if ComboBox3.Text<>'' then
    ComboBox3.Text:=DM.ADODSKHXX.FIELDBYNAME('k_khdj').Value
  else
    ComboBox3.Text:=Trim(ComboBox3.Text);
  if ComboBox2.Text<>'' then
    ComboBox2.Text:=DM.ADODSKHXX.FIELDBYNAME('d_xb').Value
  else
    ComboBox2.Text:=Trim(ComboBox2.Text);
end;

procedure TKHXX_ED.SpeedButton1Click(Sender: TObject);
begin
  CLS;
  ENA;
  ComboBox1.Clear;
  ComboBox2.Clear;
  ComboBox3.Clear;
  ActionCD := 'N';
  bh;
  Edit2.SetFocus;
end;

procedure TKHXX_ED.SpeedButton2Click(Sender: TObject);
begin
  ENA;
  ACtionCD := 'M';
end;

procedure TKHXX_ED.SpeedButton3Click(Sender: TObject);
begin
  if (cansave) then
  begin
    Posting;
    DIS;
    Application.MessageBox('保存成功!','提示!',64);
    DM.ADODSKHXX.Close;
    DM.ADODSKHXX.Open;
    actioncd:='';
    KHXX_ED.Close;
  end;
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 TKHXX_ED.SpeedButton4Click(Sender: TObject);
begin
  DIS;
  ActionCD:='';
  KHXX_ED.GetAll;
end;

procedure TKHXX_ED.SpeedButton6Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  try
    DM.ADODSKHXX.Edit;
    DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    DM.ADODSKHXX.FieldByName('k_zp').Assign(DBImage1.Picture);
  finally
    DM.ADODSKHXX.Post;
  end;
end;

procedure TKHXX_ED.SpeedButton7Click(Sender: TObject);
begin
  if OpenPictureDialog2.Execute then
  try
    DM.ADODSKHXX.Edit;
    DBImage2.Picture.LoadFromFile(OpenPictureDialog2.FileName);
    DM.ADODSKHXX.FieldByName('d_zp').Assign(DBImage1.Picture);
  finally
    DM.ADODSKHXX.Post;
  end;
end;

procedure TKHXX_ED.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in['0'..'9','a'..'z','A'..'Z',#46]) then
    key:=#0;
  if key=#13 then
    ComboBox1.SetFocus;
end;

procedure TKHXX_ED.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in['0'..'9','a'..'z','A'..'Z',#46]) then
    key:=#0;
  if key=#13 then
    Edit5.SetFocus;
end;

procedure TKHXX_ED.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;
  if key=#13 then
    ComboBox3.SetFocus;
end;

procedure TKHXX_ED.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'-']) then
    key:=#0;
  if key=#13 then
    Edit9.SetFocus;
end;

procedure TKHXX_ED.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'-']) then
    key:=#0;
  if key=#13 then
    Edit10.SetFocus;
end;

procedure TKHXX_ED.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;
  if key=#13 then
    Edit11.SetFocus;
end;

procedure TKHXX_ED.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;
  if key=#13 then
    Edit13.SetFocus;
end;

procedure TKHXX_ED.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in['0'..'9','a'..'z','A'..'Z',#46]) then
    key:=#0;
  if key=#13 then
    ComboBox2.SetFocus;
end;

procedure TKHXX_ED.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;
  if key=#13 then
    Edit15.SetFocus;
end;

procedure TKHXX_ED.Edit17KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;
  if key=#13 then
ukhxx_ed.~pas - 源码说明

本页面展示了「很好的汽车管理系统很实用的谢谢合作」中的 ukhxx_ed.~pas 源码文件，采用 ~PAS 编程语言编写，共 1,114 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫开发者社区收录了大量与汽车管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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