当前位置:编程学习 > Delphi >>

求Delphi 编的小程序,本人用来交作业,程序不需要太过繁琐,只需要涉及基本的知识就行。

补充:把程序发到我的邮箱1062762218@qq.com
追问:
        	
				
我找不到啊,你给我发点来吧,我给你更多的悬赏分
你要多大的程序?几百KB?几M?几十M?还是只要是个程序?
一般的可以就是个编辑器,就交个作业而已。
已发送,请查收
答案:直接下一个嘛~
网上搜搜一大堆~
其他:可以连接SQL 数据库 后 进行 增、删、改、查操作:
procedure TEmpManageForm_frm.Button1Click(Sender: TObject);
var
  EMPID:string;
begin
  if edit1.Text='' then
  begin
    showmessage('请输入员工编号!');
    exit;
  end;
  EMPID:=edit1.Text;
  DataMod.ado2.Close;
  DataMod.ado2.SQL.Clear;
  DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
  DataMod.ado2.Open;
  if DataMod.ado2.RecordCount >=1 then
  begin
    showmessage('该员工编号已存在!');
    exit;
  end;
  try
    DataMod.ado2.Close;
    DataMod.ado2.SQL.Clear;
    DataMod.ado2.SQL.add('insert into 员工信息 ');
    DataMod.ado2.SQL.add('(员工编号,姓名,生日,性别,手机,籍贯,电话,邮编,地址,身份证号,备注,密码) Values (');
    DataMod.ado2.SQL.add(''''+edit1.Text+''',');
    DataMod.ado2.SQL.add(''''+edit2.Text+''',');
    DataMod.ado2.SQL.add(''''+datetostr(DateTimePicker1.DateTime)+''',');
    DataMod.ado2.SQL.add(''''+edit4.Text+''',');
    DataMod.ado2.SQL.add(''''+edit5.Text+''',');
    DataMod.ado2.SQL.add(''''+edit6.Text+''',');
    DataMod.ado2.SQL.add(''''+edit7.Text+''',');
    DataMod.ado2.SQL.add(''''+edit8.Text+''',');
    DataMod.ado2.SQL.add(''''+edit12.Text+''',');
    DataMod.ado2.SQL.add(''''+edit11.Text+''',');
    DataMod.ado2.SQL.add(''''+memo1.Text+''',');
    DataMod.ado2.SQL.add(''''+edit9.Text+''')');
    DataMod.ado2.ExecSQL;
    Application.ProcessMessages;
    showmessage('员工添加成功!');
    DBGrid1.Refresh;
  except
    showmessage('添加员工时出现错误,请核对数据是否正确!');
  end;
  DBGrid1.Refresh;
  Application.ProcessMessages;
  DataMod.ado1.Close;
  Application.ProcessMessages;
  DataMod.ado1.SQL.Clear;
  DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备注 from 员工信息');
  DataMod.ado1.Open;
  Application.ProcessMessages;
  DBGrid1.DataSource :=DataMod.DS1;
  Application.ProcessMessages;
end;
//--------------------以上是添加操作----------------------//
//--------------------以下是删除操作----------------------//
procedure TEmpManageForm_frm.Button3Click(Sender: TObject);
var
  EMPID:string;
begin
  if edit1.Text ='' then
  begin
    showmessage('请选择要删除的员工!');
    exit;
  end;
  EMPID:=edit1.Text;
  DataMod.ado2.Close;
  DataMod.ado2.SQL.Clear;
  DataMod.ado2.SQL.add('select 员工编号 from 员工信息 where 员工编号='''+EMPID+'''');
  DataMod.ado2.Open;
  if DataMod.ado2.RecordCount <=0 then
  begin
    showmessage('该员工编号不存在!');
    exit;
  end;
  try
    DataMod.ado2.Close;
    DataMod.ado2.SQL.Clear;
    DataMod.ado2.SQL.add('delete from 员工信息 where 员工编号='''+edit1.Text+'''');
    DataMod.ado2.ExecSQL;
    Application.ProcessMessages;
    showmessage('员工删除成功!');
    DBGrid1.Refresh;
    DataMod.ado2.Close;
    DataMod.ado2.SQL.Clear;
    DataMod.ado2.SQL.add('delete from 员工权限 where 员工编号='''+edit1.Text+'''');
    DataMod.ado2.ExecSQL;
  except
    showmessage('删除员工时出现错误,请核对数据是否正确!');
  end;
  DBGrid1.Refresh;
  Application.ProcessMessages;
  DataMod.ado1.Close;
  Application.ProcessMessages;
  DataMod.ado1.SQL.Clear;
  DataMod.ado1.SQL.add('select 员工编号,姓名,生日,性别,籍贯,地址,电话,手机,身份证号,邮编,备注,解禁时间 from 员工信息');
  DataMod.ado1.Open;
  Application.ProcessMessages;
  DBGrid1.DataSource :=DataMod.Ds1;
  Application.ProcessMessages;
end; 

上一个:求Delphi调用fortran可执行程序的方法
下一个:一个关于JSP脚本程序的案例

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,