ujyxx_ed.pas

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

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 TJYXX_ED.SpeedButton5Click(Sender: TObject);
begin
  DIS;
  ActionCD:='';
  Close;
end;

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

procedure TJYXX_ED.FormCreate(Sender: TObject);
begin
  with DM.QJYXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from JYXX');
    Open;
  end;
end;

procedure TJYXX_ED.FormShow(Sender: TObject);
begin
  DIS;
  if ActionCD = 'M' then
    GetAll
  else if ActionCD = 'N' then
  begin
    CLS;
    ENA;
  end;
  DM.ADODSJYXX.Open;
  if ComboBox1.Text<>'' then
    ComboBox1.Text:=DM.ADODSJYXX.FieldByName('cph').Value
  else
    ComboBox1.Text:=Trim(ComboBox1.Text);
  if ComboBox2.Text<>'' then
    ComboBox2.Text:=DM.ADODSJYXX.FieldByName('yzmc').Value
  else
    ComboBox2.Text:=Trim(ComboBox2.Text);
end;

procedure TJYXX_ED.SpeedButton1Click(Sender: TObject);
begin
  CLS;
  ENA;
  ActionCD := 'N';
  bh;
  Edit5.Text:='0';
  Edit6.Text:='0';
  ComboBox1.Clear;
  ComboBox2.Clear;
  DateTimePicker1.Date:=now;
  ComboBox1.SetFocus;
end;

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

procedure TJYXX_ED.SpeedButton3Click(Sender: TObject);
begin
if (cansave) then
  begin
    Edit7.Text:=inttostr(strtoint(Edit5.Text)*strtoint(Edit6.Text));
    Posting;
    DIS;
    DM.ADODSJYXX.Close;
    DM.ADODSJYXX.Open;
    Application.MessageBox('保存成功!','提示!',64);
    actioncd:='';
    JYXX_ED.Close;
  end;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure TJYXX_ED.Edit5Exit(Sender: TObject);
begin
  Edit7.Text:=inttostr(strtoint(Edit5.Text)*strtoint(Edit6.Text));
end;

procedure TJYXX_ED.Edit6Exit(Sender: TObject);
begin
  Edit7.Text:=inttostr(strtoint(Edit5.Text)*strtoint(Edit6.Text));  
end;

procedure TJYXX_ED.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
  ComboBox1.Clear;
  with DM.QCLXX DO
  begin
    SQL.clear;
    SQl.Text := 'select CPH,clmc,rylx from CLXX';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin 
      combobox1.Items.add(FieldByName('CPH').asstring);
      next;
    end;
  end;
end;

procedure TJYXX_ED.ComboBox1Change(Sender: TObject);
begin
  Edit3.Clear;
  with DM.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select clmc from CLXX where cph='+''''+ComboBox1.Text+'''');
    Open;
  end;
  Edit3.Text:=DM.QCLXX.FieldByName('clmc').Value;
  Edit4.Clear;
  with DM.QCLXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select rylx from CLXX where cph='+''''+ComboBox1.Text+'''');
    Open;
  end;
  Edit4.Text:=DM.QCLXX.FieldByName('rylx').Value;
  Edit5.SetFocus;
end;

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

procedure TJYXX_ED.ComboBox2DropDown(Sender: TObject);
var
i:integer;
begin
  ComboBox2.Clear;
  with DM.QJYZXX DO
  begin
    Close;
    SQL.clear;
    SQl.Text := 'select yzmc,yzdz from JYZXX';
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin 
      combobox2.Items.add(FieldByName('YZMC').asstring);
      next;
    end;
  end;
end;

procedure TJYXX_ED.ComboBox2Change(Sender: TObject);
begin
  Edit11.Clear;
  with DM.QJYZXX do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select yzdz from JYZXX where yzmc='+''''+ComboBox2.Text+'''');
    Open;
  end;
  Edit11.Text:=DM.QJYZXX.FieldByName('yzdz').Value;
  Edit10.SetFocus;
end;

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

end.