uclxx_ed.pas

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

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

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;

procedure TCLXX_ED.SpeedButton4Click(Sender: TObject);
begin
  DIS;
  CLXX_ED.GetAll;
  ActionCD:='';
end;

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

procedure TCLXX_ED.Edit3Change(Sender: TObject);
begin
tr
end;

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

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

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

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

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

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

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

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

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

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

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

procedure TCLXX_ED.Edit16Change(Sender: TObject);
begin
tr
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TCLXX_ED.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DateTimePicker2.SetFocus;
end;

procedure TCLXX_ED.DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DateTimePicker4.SetFocus;
end;

procedure TCLXX_ED.DateTimePicker4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DateTimePicker5.SetFocus;
end;

procedure TCLXX_ED.DateTimePicker5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DateTimePicker3.SetFocus;
end;

procedure TCLXX_ED.DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DateTimePicker6.SetFocus;
end;

procedure TCLXX_ED.DateTimePicker6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    ComboBox2.SetFocus;
end;

procedure TCLXX_ED.ComboBox2DropDown(Sender: TObject);
var
 i:integer;
begin
  ComboBox2.Clear;
  with DM.QBXXX do
  begin
    SQL.clear;
    SQl.Text := 'select gsmc from bxxx';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin //取得该列所有的数据到combobox2控件中
      combobox2.Items.add(FieldByName('gsmc').asstring);
      next;
    end;
  end;
end;

procedure TCLXX_ED.ComboBox3DropDown(Sender: TObject);
var
 i:integer;
begin
  ComboBox3.Clear;
  with DM.QBXLXSZ do
  begin
    SQL.clear;
    SQl.Text := 'select bxlx from bxlxsz';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin
      combobox3.Items.add(FieldByName('bxlx').asstring);
      next;
    end;
  end;
end;
procedure TCLXX_ED.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in ['a'..'z','A'..'Z']) then
    key:=#0;
  if key=#13 then
    Edit9.SetFocus;
end;

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

procedure TCLXX_ED.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit21.SetFocus;
end;

procedure TCLXX_ED.ComboBox1DropDown(Sender: TObject);
begin
  ComboBox1.Items.Add('待命');
  ComboBox1.Items.Add('维修');
  ComboBox1.Items.Add('租出');
  ComboBox1.Items.Add('报废');  
end;

procedure TCLXX_ED.ComboBox3Change(Sender: TObject);
begin
  DateTimePicker1.SetFocus;
end;

end.
12

uclxx_ed.pas - 源码说明

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

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

⌨️ 快捷键说明

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