📄 mrlxrxx.pas

📁 功能强大,画面精致.是一款不可多得的客户管理系统acess数据库,用户名:yuansheng 密码:yuansheng 级别:高级用户建议在xp系统下运行。
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  ToolButton10.Enabled := true;
  ToolButton11.Enabled := true;
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;

end;

procedure TFRM_LXRXX.ToolButton9Click(Sender: TObject);
begin
  database.ADO_LXRXX.Prior;
  if not database.ADO_LXRXX.Bof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := false;
    ToolButton9.Enabled := false;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end;
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;

end;

procedure TFRM_LXRXX.ToolButton10Click(Sender: TObject);
begin
  database.ADO_LXRXX.Next;
  if not database.ADO_LXRXX.Eof then
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := true;
    ToolButton11.Enabled := true;
  end
  else
  begin
    ToolButton8.Enabled := true;
    ToolButton9.Enabled := true;
    ToolButton10.Enabled := false;
    ToolButton11.Enabled := false;
  end;
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;

end;

procedure TFRM_LXRXX.ToolButton11Click(Sender: TObject);
begin
  database.ADO_LXRXX.Last;
  ToolButton8.Enabled := true;
  ToolButton9.Enabled := true;
  ToolButton10.Enabled := false;
  ToolButton11.Enabled := false;
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;

end;

procedure TFRM_LXRXX.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  ssp := '联系人信息';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  tb := 0;
  with database.ADO_bb do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_khxx');
    open;
  end;
  if database.ADO_bb.RecordCount>0 then
  begin
    while not database.ADO_bb.Eof do
    begin
      combobox2.Items.Add(database.ADO_bb.fieldbyname('khxx_mc').AsString);
      database.ADO_bb.Next;
    end;
  end;
  with database.ADO_LXRXX do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM TB_CLIENT_LXRXX order by lxrxx_id');
    open;
  end;
  if database.ADO_LXRXX.RecordCount>0 then
  begin;
    edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
    combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
    edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
    combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
    edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
    edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
    edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
    edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
    edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
    edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
    edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
    memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
    with database.ADO_LXRXX do
    begin
      close;
      sql.Clear;
      sql.Add('SELECT * FROM TB_CLIENT_LXRXX');
      open;
    end;
    if database.ADO_LXRXX.RecordCount<1 then
    begin
      DateTimePicker1.Date := date();
      DateTimePicker2.Date := date();
    end
    else
    begin
      DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
      DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;
    end;
  end
  else
  begin
    edit1.Clear;
    combobox2.Text := '';
    edit3.Clear;
    combobox1.Text := '';
    edit5.Clear;
    edit6.Clear;
    edit7.Clear;
    edit8.Clear;
    edit9.Clear;
    edit10.Clear;
    edit11.Clear;
    memo1.Clear;
    DateTimePicker1.Date := now();
    DateTimePicker2.Date := now();

  end;
end;

procedure TFRM_LXRXX.FormCreate(Sender: TObject);
begin
  database.ADO_LXRXX.Active := false;
  database.ADO_LXRXX.Active := true;
end;

procedure TFRM_LXRXX.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_LXRXX.ToolButton6Click(Sender: TObject);
begin
  ToolButton5.Enabled := TRUE; 
  application.CreateForm(TFRM_LXRXX_CX, FRM_LXRXX_CX);
  FRM_LXRXX_CX.ShowModal;
  FRM_LXRXX_CX.Free;
end;

procedure TFRM_LXRXX.DBGrid1CellClick(Column: TColumn);
begin
  edit1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_id').AsString;
  combobox2.Text := database.ADO_LXRXX.fieldbyname('lxrxx_qymc').AsString;
  edit3.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xm').AsString;
  combobox1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xb').AsString;
  edit5.Text := database.ADO_LXRXX.fieldbyname('lxrxx_nl').AsString;
  edit6.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bgdh').AsString;
  edit7.Text := database.ADO_LXRXX.fieldbyname('lxrxx_zw').AsString;
  edit8.Text := database.ADO_LXRXX.fieldbyname('lxrxx_sj').AsString;
  edit9.Text := database.ADO_LXRXX.fieldbyname('lxrxx_Email').AsString;
  edit10.Text := database.ADO_LXRXX.fieldbyname('lxrxx_bz').AsString;
  edit11.Text := database.ADO_LXRXX.fieldbyname('lxrxx_xxdjr').AsString;
  memo1.Text := database.ADO_LXRXX.fieldbyname('lxrxx_grjj').AsString;
  DateTimePicker1.Date := database.ADO_LXRXX.fieldbyname('lxrxx_csny').AsDateTime;
  DateTimePicker2.Date := database.ADO_LXRXX.fieldbyname('lxrxx_djrq').AsDateTime;

end;

procedure TFRM_LXRXX.DateTimePicker1Change(Sender: TObject);
var
   i,j : integer;
begin
  if DateTimePicker1.Date <= now() then
  begin
    edit5.Text := inttostr(strtoint(formatdatetime('yyyy',now()))-strtoint(formatdatetime('yyyy',DateTimePicker1.Date)));
    edit6.SetFocus;
  end
  else
  begin
    showmessage('出生年月输入错误。');
    DateTimePicker1.Date := now();
  end;
end;

procedure TFRM_LXRXX.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(combobox2.Text <>'') then
    edit3.SetFocus;
end;

procedure TFRM_LXRXX.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit3.Text <>'') then
    combobox1.SetFocus;
end;

procedure TFRM_LXRXX.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit6.Text <>'') then
    edit7.SetFocus;
end;

procedure TFRM_LXRXX.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit7.Text <>'') then
    edit8.SetFocus;
end;

procedure TFRM_LXRXX.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit8.Text <>'') then
    edit11.SetFocus;
end;

procedure TFRM_LXRXX.DateTimePicker2Change(Sender: TObject);
begin
  edit9.SetFocus;
end;

procedure TFRM_LXRXX.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit9.Text <>'') then
    edit10.SetFocus;
end;

procedure TFRM_LXRXX.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = vk_return)and(edit10.Text <>'') then
    memo1.SetFocus;
end;

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

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

procedure TFRM_LXRXX.ComboBox2Change(Sender: TObject);
begin
  with database.ADO_bb do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_khxx where khxx_mc='+''''+combobox2.Text+'''');
    open;
  end;
  edit3.Text := database.ADO_bb.fieldbyname('khxx_lxr').AsString;
  combobox1.SetFocus;
end;

end.
上一页 12
💿 文件大小 1100 K
👤 上传用户 lwp
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#yuansheng #acess #用户 #画面
⌨️ 快捷键说明

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