dayin.pas

档案管理系统,档案管理系统vb+access源代码+可执行文件+论文+开题报告+外文翻译..

unit DaYin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, ExtCtrls, DB, DBTables, DBCtrls, ComCtrls,
  ImgList, Buttons, RxMemDS;

type
  TDaYinFrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Query1: TQuery;
    CheckListBox1: TCheckListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ImageList1: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    //procedure AllRecords;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DaYinFrm: TDaYinFrm;

implementation

uses BaoBiao;

{$R *.dfm}

{ TDaYinFrm }

//procedure TDaYinFrm.AllRecords;
//begin
//end;

procedure TDaYinFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := CaFree;
end;

procedure TDaYinFrm.FormCreate(Sender: TObject);
begin
  Query1.Active := True;
  CheckListBox1.Items.BeginUpdate;
  with query1 do
    begin
    if not Active Then open;
    First;
    while not eof do
    begin
    CheckListBox1.Items.Add(Format('档案编号[%s] 姓名[%s]',[Fields[0].AsString,Fields[1].AsString]));
    next;
    end;
    CheckListBox1.Items.EndUpdate;
    end;
end;

procedure TDaYinFrm.BitBtn6Click(Sender: TObject);
begin
  self.Close;
end;

procedure TDaYinFrm.BitBtn4Click(Sender: TObject);
Var
  BaobiaoFrm:TBaobiaoFrm;
  i:integer;
  s:string;
begin
  BaobiaoFrm:=TBaobiaoFrm.Create(application);
  BaobiaoFrm.RxMemoryData1.CopyStructure(query1);
  for i := 0 to CheckListBox1.Items.Count-1 do
  begin
    if CheckListBox1.Checked[i] then
    begin
      s := CheckListBox1.Items[i];
      s := copy(s,pos('[',s)+1,pos(']',s)-pos('[',s)-1);
      query1.Locate('DanganBianHao',s,[]);
      BaobiaoFrm.RxMemoryData1.LoadFromDataSet(query1,1,lmAppend);
    end;
  end;
//  BaobiaoFrm.RxMemoryData1.First;
  BaobiaoFrm.BB_Frm.Preview;
end;

procedure TDaYinFrm.BitBtn1Click(Sender: TObject);
Var
  i:Integer;
begin
  for i:=0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked[i]:=true;
end;

procedure TDaYinFrm.BitBtn2Click(Sender: TObject);
Var
  i:Integer;
begin
  for i:=0 to CheckListBox1.Items.Count - 1 do
    CheckListBox1.Checked [i] := False;
end;

procedure TDaYinFrm.BitBtn5Click(Sender: TObject);
Var
  BaoBiaoFrm:TBaoBiaoFrm;
begin
  BaoBiaoFrm:=TBaoBiaoFrm.Create(application);
  BaoBiaoFrm.BB_Frm.Print;
end;

procedure TDaYinFrm.BitBtn3Click(Sender: TObject);
Var
  FindDaYin:String;
begin
  FindDaYin:=InPutBox('姓名查询','请输入查询者姓名：','');
  if not query1.Locate('XingMin',FindDaYin,[loCaseInsensitive, loPartialKey]) Then
  Application.MessageBox('没有相对应的记录','警告',idok);
end;

end.