set_ks_pas.pas

不错啊

unit set_ks_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pub_frm_pas, StdCtrls, DBCtrls, Mask, Grids, DBGrids, jpeg,
  ExtCtrls, ImgList, ComCtrls, ToolWin;

type
  Tset_ks = class(Tpub_frm)
    Image1: TImage;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    Panel6: TPanel;
    DBNavigator1: TDBNavigator;
    Panel7: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBComboBox1: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  set_ks: Tset_ks;

implementation
  uses
    main_dm_pas;
  var
    main_dm:Tmain_dm;
{$R *.dfm}

procedure Tset_ks.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  main_dm.Free;
end;

procedure Tset_ks.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  main_dm:=Tmain_dm.Create(self);
  main_dm.gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
  main_dm.adq1.Close;
  main_dm.adq1.SQL.Clear;
  main_dm.adq1.SQL.Add('select * from kslb');
  main_dm.adq1.Prepared;
  main_dm.adq1.Open;
  for i:=0 to main_dm.adq1.RecordCount-1 do
  begin
    dbcombobox1.Items.Add(main_dm.adq1.FieldValues ['lbname'] );
    main_dm.adq1.Next;
  end;
  main_dm.adq1.Close;
  main_dm.adq1.SQL.Clear;
  main_dm.adq1.SQL.Add('select ksname as 科室名称,kszsry as 正式职工,kshtry as 合同职工,');
  main_dm.adq1.SQL.Add('ksqtry as 其他人员,kslb as 科室类别,bz as 备注 from ksryb');
  main_dm.adq1.Prepared;
  dbgrid1.DataSource :=main_dm.DataSource1;
  dbnavigator1.DataSource :=main_dm.DataSource1;
  main_dm.adq1.Open;
  dbedit1.DataSource :=main_dm.DataSource1;
  dbedit2.DataSource :=main_dm.DataSource1;
  dbedit3.DataSource :=main_dm.DataSource1;
  dbedit4.DataSource :=main_dm.DataSource1;
  dbedit5.DataSource :=main_dm.DataSource1;
  dbcombobox1.DataSource :=main_dm.DataSource1;
  dbedit1.DataField :='科室名称';
  dbedit2.DataField :='正式职工';
  dbedit3.DataField :='合同职工';
  dbedit4.DataField :='其他人员';
  dbedit5.DataField :='备注';
  dbcombobox1.DataField :='科室类别';
  dbgrid1.Columns[0].Width :=120;
  dbgrid1.Columns[1].Width :=100;
  dbgrid1.Columns[2].Width :=100;
  dbgrid1.Columns[3].Width :=100;
  dbgrid1.Columns[4].Width :=100;
  dbgrid1.Columns[5].Width :=150;
end;

end.