ukhxx_ed.pas

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

PAS
987 行
字号
12
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;

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
    Edit18.SetFocus;
end;

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

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

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

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

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

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

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

procedure TKHXX_ED.Edit2Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit6Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit5Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit4Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit7Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit8Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit9Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit10Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit11Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit12Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit13Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit14Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit15Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit19Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit18Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit17Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit20Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit21Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit22Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit24Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit23Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit25Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit26Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit27Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit28Change(Sender: TObject);
begin
tr
end;
          
procedure TKHXX_ED.Edit29Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Edit30Change(Sender: TObject);
begin
tr
end;

procedure TKHXX_ED.Memo1Change(Sender: TObject);
begin
  Memo1.Text:=trim(memo1.Text);
end;

procedure TKHXX_ED.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in['0'..'9','a'..'z','E'..'Z',#46]) then
  begin
    key:=#0;
    application.messagebox('所输入的字符不合法','提示信息',0+mb_iconinformation);
  end;
  if key=#13 then
    Edit7.SetFocus;
end;

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

procedure TKHXX_ED.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit12.SetFocus;
end;

procedure TKHXX_ED.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in[#46]) then
    key:=#0;
  if key=#13 then
    Edit14.SetFocus;
end;

procedure TKHXX_ED.Edit23KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit24.SetFocus;
end;

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

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

procedure TKHXX_ED.Edit28KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in[#46]) then
    key:=#0;
  if key=#13 then
    Edit29.SetFocus;
end;

procedure TKHXX_ED.Edit29KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in[#46]) then
    key:=#0;
  if key=#13 then
    Edit30.SetFocus;
end;

procedure TKHXX_ED.Edit30KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in[#46]) then
    key:=#0;
  if key=#13 then
    Memo1.SetFocus;
end;

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

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

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

procedure TKHXX_ED.ComboBox1DropDown(Sender: TObject);
begin
  ComboBox1.Items.Add('男');
  ComboBox1.Items.Add('女');
end;

procedure TKHXX_ED.ComboBox3DropDown(Sender: TObject);
begin
  ComboBox3.Items.Add('A');
  ComboBox3.Items.Add('B');
  ComboBox3.Items.Add('C');
  ComboBox3.Items.Add('D');
end;

procedure TKHXX_ED.ComboBox2DropDown(Sender: TObject);
begin
  ComboBox2.Items.Add('男');
  ComboBox2.Items.Add('女');
end;

end.
12

ukhxx_ed.pas - 源码说明

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

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

⌨️ 快捷键说明

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