论坛 › Delphi交流 › 用delphi和Access只做一个简单的学生成绩管理系统

逃避？ 发表于 2012-6-3 13:23:24

用delphi和Access只做一个简单的学生成绩管理系统

有登录，注册，插入，删除就可以了。最好是成品！给代码以及详细制作过程也行！谢谢了！

乐yi忘忧 发表于 2012-6-4 08:22:57

本帖最后由 乐yi忘忧 于 2012-6-12 23:30 编辑

procedure TForm1.FormCreate(Sender: TObject);
begin

WithADOConnection1 do
begin
    Close;
    ConnectionString:='Provider=Microsoft.Jet.OlEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName){(ParamStr(0))}+'\database\个人应缴.mdb;User ID=admin; Password=; Persist security Info=False';//修改这里,读取数据库路径
    LoginPrompt:=False;
end;

WithADOQuery1 do
begin
    Connection:=ADOConnection1;
    CursorLocation:= clUseServer;
    Close;
    SQL.Clear;
    SQL.Add('SELECT 导入应征清册.序号,姓名,公民身份证,银行账号,应缴金额,档次变更,村委会名称,村小组,缴费类别,导入应征清册.备注 ');
    SQL.Add('FROM ( INNER JOIN 导入应征清册 ON .公民身份证=导入应征清册.公民身份证号) INNER JOIN ON .村委会编码=.村委会编码');
    Open;
end;

ADOQuery2.Connection:=ADOConnection1;
DataSource1.DataSet:= ADOQuery1;
DBGrid1.DataSource:= DataSource1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
CursorLocation:= clUseServer;
Close;
SQL.Clear;
SQL.Add('SELECT 导入应征清册.序号,姓名,公民身份证,银行账号,应缴金额,档次变更,村委会名称,村小组,缴费类别,导入应征清册.备注 ');
SQL.Add('FROM ( INNER JOIN 导入应征清册 ON .公民身份证=导入应征清册.公民身份证号) INNER JOIN ON .村委会编码=.村委会编码');
SQL.Add('where .公民身份证 like ''%'+edit1.Text+'%''');
Open;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then { 判断是按执行键}
Button1.Click
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
sCmd:String;
begin
   sCmd:='';
   ADOQuery1.Edit;
   ADOQuery1.Post;
   ADOCommand1.Connection:=ADOConnection1;
   //ADOCommand1.ConnectionString:='Provider=Microsoft.Jet.OlEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName){(ParamStr(0))}+'\database\个人应缴.mdb;User ID=admin; Password=; Persist security Info=False';//修改这里,读取数据库路径
   //If Trim(Adoquery1.FieldBYName('档次变更').AsString)<>'' then

   sCmd:='Select * from sheet11 where 公民身份证='''+Adoquery1.FieldBYName('公民身份证').AsString+'''';
WithADoQuery2 do
begin
    SQL.Clear;
    SQL.Add(sCmd);
    Open;
end;

If Adoquery2.RecordCount=0 Then
   begin
    sCmd:='Insert into Sheet11 Select 导入应征清册.序号,姓名,公民身份证,银行账号,应缴金额,档次变更,村委会名称,村小组,缴费类别,导入应征清册.备注 FROM ( Left JOIN';
    sCmd:=sCmd+' 导入应征清册 ON .公民身份证=导入应征清册.公民身份证号) Left JOIN ON .村委会编码=.村委会编码 where 公民身份证='''+Adoquery1.FieldBYName('公民身份证').AsString+'''';
    ADOCommand1.CommandText := sCmd;
    ADOCommand1.Execute();
   end
else
    Showmessage('已经保存过记录，不要重复保存。');

end;

woawn 发表于 2012-6-11 18:20:42

这位仁兄看着很牛B啊，就是tainiuB了整的俺都看不懂了

希望 发表于 2012-6-11 21:12:44

不错，还有版主是比较热心呀。fishc最近落寞了。

乐yi忘忧 发表于 2012-6-12 23:31:54

woawn 发表于 2012-6-11 18:20 static/image/common/back.gif
这位仁兄看着很牛B啊，就是tainiuB了整的俺都看不懂了

你看不懂不代表 别人也看不懂。

woawn 发表于 2012-6-13 10:02:52

乐yi忘忧 发表于 2012-6-12 23:31 static/image/common/back.gif
你看不懂不代表 别人也看不懂。

恩恩是啊现在是新手哈哈，以后多多请教啊

946585372 发表于 2015-9-12 20:08:39

学习了

鱼C工作室.YCGZS 发表于 2015-12-3 12:35:01

神级人物，佩服

cx_happy 发表于 2023-11-7 15:43:06

学习学习~

查看完整版本: 用delphi和Access只做一个简单的学生成绩管理系统