特急求：delphi编写的普通档案管理系统！包括：档案录入和档案查询二块！！

Question

特急求：delphi编写的普通档案管理系统！包括：档案录入和档案查询二块就是比较常见的档案管理系统：可以录入档案，，然后再查询档案（后台链个ACCESS数据库就可以）我对delphi 不懂！！！请各位给出这类系统的成品！！如果分不够可以再加，，到解决为止！！我确实有急用！！谢谢各位了！！！

Answer 1

哈哈，成品海了去了。到这里去下一个，包你满意。
  源码仓库：  http://www.delphiun.com/

Answer 2

从那里下的，很多都有问题！！都没法用，，bug太多
请给我一个可以用的，经过调试的，好吗！
谢谢了！！！！！！！！！

Answer 3

一
unit condata;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  TDMD = class(TDataModule)
    ACon1: TADOConnection;
    do1: TADOQuery;
    do2: TADOQuery;
    do3: TADOQuery;
    do4: TADOQuery;
    cx1: TADOQuery;
    cx2: TADOQuery;
    cx3: TADOQuery;
    cx4: TADOQuery;
    DS1: TDataSource;
    DS2: TDataSource;
    DS3: TDataSource;
    DS4: TDataSource;
    ACon2: TADOConnection;
    bak1: TADOQuery;
    bak2: TADOQuery;
    bak3: TADOQuery;
    see1: TADOQuery;
    see2: TADOQuery;
    see3: TADOQuery;
    BDS1: TDataSource;
    BDS2: TDataSource;
    BDS3: TDataSource;
    mdku: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DMD: TDMD;implementation{$R *.dfm}procedure TDMD.DataModuleCreate(Sender: TObject);
begin
acon1.LoginPrompt:=false;
acon1.Connected:=true;
acon2.LoginPrompt:=false;
acon2.Connected:=true;
end;

Answer 4

二
unit jszlkcbj;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ComCtrls, StdCtrls, Buttons, Grids, DBGrids,
  ExtCtrls;type
  TjsForm4 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Panel2: TPanel;
    Edit2: TEdit;
    Panel3: TPanel;
    Edit3: TEdit;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel10: TPanel;
    Edit5: TEdit;
    Button1: TButton;
    Button6: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel15: TPanel;
    Edit4: TEdit;
    Panel6: TPanel;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    procedure restore;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit4Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  jsForm4: TjsForm4;implementation
uses condata;{$R *.dfm}procedure TjsForm4.FormCreate(Sender: TObject);
begin
combobox1.Text:='图纸';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='0';
edit4.Text:='';
datetimepicker1.Date:=now;
button3.Enabled:=false;
button4.Enabled:=false;
dmd.do1.Close;
dmd.do1.SQL.Clear;
dmd.do1.SQL.Add('select *from jszlku');
dmd.do1.SQL.Add('order by ID DESC');
dmd.do1.Open;
end;procedure TjsForm4.Button2Click(Sender: TObject);
begin
if length(edit1.Text)<=0 then
Application.MessageBox('无编号!','错误信息提示', 0)
else
 if  length(edit2.Text)<=0 then
 Application.MessageBox('无名称!','错误信息提示', 0)
 else
 begin
 dmd.cx1.Close;
 dmd.cx1.SQL.Clear;
 dmd.cx1.SQL.Add('select *from jszlku');
 dmd.cx1.SQL.Add('where 编号='''+edit1.Text+'''');
 dmd.cx1.SQL.Add('order by ID DESC');
 DMD.cx1.Open;
 if dmd.cx1.RecordCount>0 then
 Application.MessageBox('该办公资料已存在！','错误信息提示', 0)
 else
  begin
  dmd.do1.Append;
  dmd.do1.FieldByName('编号').AsString:=edit1.Text;
  dmd.do1.FieldByName('名称').AsString:=edit2.Text;
  dmd.do1.FieldByName('分类').AsString:=combobox1.Text;
  dmd.do1.FieldByName('数量').Asfloat:=strtofloat(edit3.Text);
  dmd.do1.FieldByName('入库日期').AsString:=datetostr(datetimepicker1.Date);
  dmd.do1.Post;
  dmd.do1.Refresh;
  dbgrid1.Refresh;
  end;
 end;
button3.Enabled:=true;
button4.Enabled:=true;
end;procedure TjsForm4.Button3Click(Sender: TObject);
begin
  dmd.do1.edit;
  dmd.do1.FieldByName('名称').AsString:=edit2.Text;
  dmd.do1.FieldByName('分类').AsString:=combobox1.Text;
  dmd.do1.FieldByName('数量').Asfloat:=strtofloat(edit3.Text);
  dmd.do1.FieldByName('入库日期').AsString:=datetostr(datetimepicker1.Date);
  dmd.do1.Post;
end;procedure TjsForm4.Button4Click(Sender: TObject);
begin
if messagedlg('一旦删除将永久丢失编码及其库存，确定要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  if not dmd.do1.Eof then
  dmd.do1.delete;
  end;
end;procedure TjsForm4.Button5Click(Sender: TObject);
begin
close;
end;procedure TjsForm4.restore;
begin
if dmd.do1.RecordCount>0 then
begin
edit1.Text:=dmd.do1.FieldByName('编号').AsString;
edit2.Text:=dmd.do1.FieldByName('名称').AsString;
combobox1.Text:=dmd.do1.FieldByName('分类').AsString;
edit3.Text:=floattostr(dmd.do1.FieldByName('数量').Asfloat);
datetimepicker1.Date:=strtodate(dmd.do1.FieldByName('入库日期').AsString);
button3.Enabled:=true;
button4.Enabled:=true;
end;
end;procedure TjsForm4.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
restore;
end;procedure TjsForm4.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
restore;
end;procedure TjsForm4.Edit4Change(Sender: TObject);
begin
 dmd.do1.Close;
 dmd.do1.SQL.Clear;
 dmd.do1.SQL.Add('select *from jszlku');
 dmd.do1.SQL.Add('where 编号 like ''%'+edit4.Text+'%''');
 dmd.do1.SQL.Add('order by ID DESC');
 dmd.do1.Open;
end;procedure TjsForm4.Button6Click(Sender: TObject);
begin
 dmd.do1.Close;
 dmd.do1.SQL.Clear;
 dmd.do1.SQL.Add('select *from jszlku');
 dmd.do1.SQL.Add('order by ID DESC');
 dmd.do1.Open;
edit4.Clear;
end;

Answer 5

三
unit jscpzhpz;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, commdata, Buttons, StdCtrls, ExtCtrls, Grids, DBGrids, ComCtrls,
  DB, DBClient;type
  TjsForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Panel4: TPanel;
    Edit3: TEdit;
    Panel2: TPanel;
    Edit6: TEdit;
    Panel6: TPanel;
    Edit5: TEdit;
    Button1: TButton;
    BitBtn2: TBitBtn;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    Button3: TButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Button4: TButton;
    data: TClientDataSet;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  jsForm2: TjsForm2;implementation
uses condata;
{$R *.dfm}procedure TjsForm2.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit3.Clear;
edit5.text:='1';
edit6.text:='1';
pagecontrol1.ActivePageIndex:=0;
dmd.do1.Close;
dmd.do1.SQL.clear;
dmd.do1.SQL.add('select * from zgfmcfg order by 产品型号,物资编码');
dmd.do1.Open;
dmd.do2.Close;
dmd.do2.sql.clear;
dmd.do2.sql.Add('select * from kucpxh order by 产品型号');
dmd.do2.open;
dmd.do3.Close;
dmd.do3.SQL.clear;
dmd.do3.SQL.add('select * from kuwzbm order by 物资编码');
dmd.do3.Open;
data.CreateDataSet;
end;procedure TjsForm2.Edit1Change(Sender: TObject);
begin
dmd.do2.Close;
dmd.do2.SQL.Clear;
dmd.do2.SQL.add('select * from kucpxh');
dmd.do2.SQL.Add('where 产品型号 like ''%'+edit1.Text+'%''');
dmd.do2.SQL.add('order by 产品型号');
dmd.do2.Open;
end;procedure TjsForm2.Edit3Change(Sender: TObject);
begin
dmd.do3.Close;
dmd.do3.SQL.Clear;
dmd.do3.SQL.add('select * from kuwzbm');
dmd.do3.SQL.Add('where 物资编码 like ''%'+edit1.Text+'%''');
dmd.do3.SQL.add('order by 物资编码');
dmd.do3.Open;
end;procedure TjsForm2.SpeedButton1Click(Sender: TObject);
begin
dmd.do1.First;
while not dmd.do1.Eof do
 begin
 data.Append;
 data.FieldByName('产品型号').asstring:=dmd.do1.FieldByName('产品型号').asstring;
 data.FieldByName('物资编码').asstring:=dmd.do1.FieldByName('物资编码').asstring;
 data.FieldByName('物资名称').asstring:=dmd.do1.FieldByName('物资名称').asstring;
 data.FieldByName('型号规格').asstring:=dmd.do1.FieldByName('型号规格').asstring;
 data.FieldByName('材料牌号').asstring:=dmd.do1.FieldByName('材料牌号').asstring;
 data.FieldByName('序号').asinteger:=dmd.do1.FieldByName('序号').asinteger;
 data.FieldByName('数量').asfloat:=dmd.do1.FieldByName('数量').asfloat;
 data.FieldByName('时间').asstring:=datetimetostr(now);
 data.Post;
 dmd.do1.Next;
 end;end;procedure TjsForm2.BitBtn2Click(Sender: TObject);
var
a:integer;begin
dmd.cx1.Close;
dmd.cx1.SQL.clear;
dmd.cx1.SQL.Add('select zgfmcfg.产品型号 from zgfmcfg,kucpxh where zgfmcfg.产品型号=kucpxh.产品型号');
dmd.cx1.Open;
if dmd.cx1.RecordCount>0 then
         begin
  a:=application.MessageBox('已经有数据,确实要生成吗?','系统提示',1);
  if a=1 then
  begin
  dmd.do1.First;
  while not dmd.do1.Eof do
   begin
   dmd.do1.Delete;
   dmd.do1.First;
   end;
  end;
         end; begin
data.First;
while not data.Eof do
 begin
 dmd.do1.Append;
 dmd.do1.FieldByName('产品型号').asstring:=dmd.do2.FieldByName('产品型号').asstring;
 dmd.do1.FieldByName('物资编码').asstring:=data.FieldByName('物资编码').asstring;
 dmd.do1.FieldByName('物资名称').asstring:=data.FieldByName('物资名称').asstring;
 dmd.do1.FieldByName('型号规格').asstring:=data.FieldByName('型号规格').asstring;
 dmd.do1.FieldByName('材料牌号').asstring:=data.FieldByName('材料牌号').asstring;
 dmd.do1.FieldByName('序号').asinteger:=data.FieldByName('序号').asinteger;
 dmd.do1.FieldByName('数量').asfloat:=data.FieldByName('数量').asfloat;
 dmd.do1.Post;
 dmd.do1.Refresh;
 dbgrid3.Refresh;
 data.Next;
 end;
  end;end;
procedure TjsForm2.Button1Click(Sender: TObject);
begin
    dmd.do1.append;
    dmd.do1.FieldByName('产品型号').asstring:=dmd.do2.FieldByName('产品型号').asstring;
    dmd.do1.FieldByName('物资编码').asstring:=dmd.do3.FieldByName('物资编码').asstring;
    dmd.do1.FieldByName('物资名称').asstring:=dmd.do3.FieldByName('物资名称').asstring;
    dmd.do1.FieldByName('型号规格').asstring:=dmd.do3.FieldByName('型号规格').asstring;
    dmd.do1.FieldByName('材料牌号').asstring:=dmd.do3.FieldByName('材料牌号').asstring;
    dmd.do1.FieldByName('数量').asfloat:=strtofloat(edit5.Text);
    dmd.do1.FieldByName('序号').asinteger:=strtoint(edit6.text);
    dmd.do1.Post;
    dmd.do1.Refresh;
    dbgrid3.Refresh;
end;procedure TjsForm2.Button4Click(Sender: TObject);
begin
close;
end;procedure TjsForm2.Button3Click(Sender: TObject);
var
a:integer;
begin
dmd.cx1.Close;
dmd.cx1.SQL.Clear;
dmd.cx1.SQL.add('select * from zgfmcfg');
dmd.cx1.Open;
if dmd.cx1.RecordCount>0 then
  begin
  a:=application.MessageBox('真的要删除吗?','系统提示',1);
   if a=1 then
  dmd.do1.delete;
  end;
end;