unit6.pas

来自「进行图纸的资料归档及管理」· PAS 代码 · 共 147 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, ExtCtrls, DBCtrls, DBNavPlus, AbcToolb, AbcTlbr,
  ComCtrls, StdCtrls, Mask, RzDBEdit, RzDBBnEd, RzStatus, RzDBStat, RzDTP,
  RzDBDTP, DBGridEh, RzDBSpin, ADODB, RzCmboBx, RzDBCmbo;

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    Panel4: TPanel;
    RzDBStateStatus1: TRzDBStateStatus;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBDateTimePicker1: TRzDBDateTimePicker;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBMemo1: TRzDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    TabSheet4: TTabSheet;
    Panel5: TPanel;
    DBGridEh2: TDBGridEh;
    Panel6: TPanel;
    DBGridEh1: TDBGridEh;
    Splitter1: TSplitter;
    RzDBButtonEdit1: TRzDBButtonEdit;
    RzDBDateTimePicker2: TRzDBDateTimePicker;
    RzDBSpinEdit1: TRzDBSpinEdit;
    RzDBEdit9: TRzDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    RzDBMemo2: TRzDBMemo;
    DBNavPlus1: TDBNavPlus;
    DBNavPlus2: TDBNavPlus;
    DBNavPlus4: TDBNavPlus;
    RzDBComboBox1: TRzDBComboBox;
    RzDBButtonEdit2: TRzDBButtonEdit;
    Label15: TLabel;
    Label16: TLabel;
    RzDBMemo3: TRzDBMemo;
    RzDBComboBox2: TRzDBComboBox;
    Label14: TLabel;
    RzDBComboBox3: TRzDBComboBox;
    RzDBButtonEdit3: TRzDBButtonEdit;
    RzDBComboBox4: TRzDBComboBox;
    Label17: TLabel;
    procedure PageControl1Change(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure RzDBButtonEdit1ButtonClick(Sender: TObject);
    procedure RzDBButtonEdit2ButtonClick(Sender: TObject);
    procedure RzDBButtonEdit3ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
uses data,unit7;
{$R *.DFM}

procedure TForm6.PageControl1Change(Sender: TObject);
begin
{
if PageControl1.activepage=TabSheet1 then DBNavPlus1.datasource:=mainData.tzDataSource;
if PageControl1.activepage=TabSheet2 then DBNavPlus1.datasource:=mainData.outDataSource;
if PageControl1.activepage=TabSheet3 then DBNavPlus1.datasource:=mainData.editDataSource;
if PageControl1.activepage=TabSheet4 then DBNavPlus1.datasource:=mainData.tzDataSource;
}
end;

procedure TForm6.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);

begin
AllowChange:=true;
if maindata.outDataSource.state=dsedit then AllowChange:=false;
if maindata.outDataSource.state=dsinsert then AllowChange:=false;
if maindata.tzDataSource.state=dsedit then AllowChange:=false;
if maindata.tzDataSource.state=dsinsert then AllowChange:=false;
if AllowChange=false then
   MessageDlg('请先完成当前数据编辑状态！', mtWarning,[mbYes], 0);
end;

procedure TForm6.RzDBButtonEdit1ButtonClick(Sender: TObject);
var tempforms:Twzmcdialog;
begin
tempforms:=Twzmcdialog.create(self);
tempforms.Sourcelist.Items.loadfromfile('ry_name.txt');
tempforms.filenames:='ry_name.txt';
tempforms.caption:='选择借阅人员';
mainData.outDataSource.DataSet.edit;
if tempforms.execute then
   RzDBButtonEdit1.text:=tempforms.text;
end;

procedure TForm6.RzDBButtonEdit2ButtonClick(Sender: TObject);
var tempforms:Twzmcdialog;
begin
tempforms:=Twzmcdialog.create(self);
tempforms.Sourcelist.Items.loadfromfile('cj_name.txt');
tempforms.filenames:='cj_name.txt';
tempforms.caption:='选择分供方名称';
mainData.outDataSource.DataSet.edit;
if tempforms.execute then
   RzDBButtonEdit2.text:=tempforms.text;
end;


procedure TForm6.RzDBButtonEdit3ButtonClick(Sender: TObject);
var tempforms:Twzmcdialog;
begin
tempforms:=Twzmcdialog.create(self);
tempforms.Sourcelist.Items.loadfromfile('wz_name.txt');
tempforms.filenames:='wz_name.txt';
tempforms.caption:='选择物资名称';
mainData.tzDataSource.DataSet.edit;
if tempforms.execute then
   RzDBButtonEdit3.text:=tempforms.text;
end;


end.