ufrmtransport_info.pas

工廠採購管理系統

unit ufrmtransport_info;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ComCtrls, ExtCtrls, RzPanel, RzSplit, Grids, DBGrids,
  DBCtrls, DB, ADODB, StdCtrls, Mask, RzCmboBx, RzDBCmbo;

type
  Tfrmtransport_info = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label22: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    RzDBComboBox1: TRzDBComboBox;
    DBEdit5: TDBEdit;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TMemoField;
    ADOQuery1DSDesigner6: TStringField;
    ADOQuery1DSDesigner7: TStringField;
    ADOQuery1DSDesigner8: TDateTimeField;
    ADOQuery1DSDesigner9: TStringField;
    function createid(adoqueryx:Tadoquery):string;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
  private
    { Private declarations }
    strsql:string;
    addedit:boolean;
  public
    { Public declarations }
  end;

var
  frmtransport_info: Tfrmtransport_info;

implementation
uses uconst,udm1,Unit_treepublic,ufunction, ucx;
{$R *.dfm}
function Tfrmtransport_info.createid(adoqueryx:Tadoquery):string;
var
getid:LongInt;
begin
if adoqueryx.recordset.eof and adoqueryx.recordset.bof then begin
result:= '1000';
EXIT;
END;
ADOQUERYx.Last;
getid:=STRTOINT(ADOQUERYx.fields[0].AsString);
getid:=getid+1;
result:=FORMATFLOAT('0000',GETID);

end;
procedure Tfrmtransport_info.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmtransport_info.FormCreate(Sender: TObject);
begin
addedit:=false;
RzDBComboBox1.Items.Add('重要');
RzDBComboBox1.Items.Add('中等');
RzDBComboBox1.Items.Add('次要');
strsql:='select id as 运输代码,transport_name as 名称,address as 地址,relation as 联系人,bz as 备注,classname as 类别,'+
 'tel as 电话,djr as 操作,pubdate as 日期 from transport_info order by id asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmtransport_info.RzBitBtn1Click(Sender: TObject);
var
id:string;
begin
addedit:=true;
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
RzBitBtn6.Enabled:=false;
RzBitBtn7.Enabled:=true;
PageControl1.ActivePageIndex:=1;
strsql:='select id as 运输代码,transport_name as 名称,address as 地址,relation as 联系人,bz as 备注,classname as 类别,'+
 'tel as 电话,djr as 操作,pubdate as 日期 from transport_info order by id asc';
adoexect(adoquery1,strsql);
id:=createid(adoquery1);
adoquery1.Append;
dbedit1.Text:=id;
dbedit2.Text:=username;
dbedit4.Text:=datetostr(date);
end;

procedure Tfrmtransport_info.RzBitBtn2Click(Sender: TObject);
begin
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要修改的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
addedit:=true;
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
RzBitBtn6.Enabled:=false;
RzBitBtn7.Enabled:=true;
adoquery1.Edit;
PageControl1.ActivePageIndex:=1;
end;

procedure Tfrmtransport_info.RzBitBtn7Click(Sender: TObject);
begin

adoquery1.Post;
messagebox(handle,'操作成功！','信息',mb_ok+mb_iconinformation);
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn6.Enabled:=true;
RzBitBtn7.Enabled:=false;
PageControl1.ActivePageIndex:=0;
end;

procedure Tfrmtransport_info.PageControl1Change(Sender: TObject);
begin
if addedit then
PageControl1.ActivePageIndex:=1
else
PageControl1.ActivePageIndex:=0;
end;

procedure Tfrmtransport_info.RzBitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Tfrmtransport_info.RzBitBtn8Click(Sender: TObject);
begin
adoquery1.CancelUpdates;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn6.Enabled:=true;
RzBitBtn7.Enabled:=false;
PageControl1.ActivePageIndex:=0;
end;

procedure Tfrmtransport_info.RzBitBtn6Click(Sender: TObject);
begin
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要删除的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
adoquery1.Delete;
adoquery1.Requery(); 
end;

procedure Tfrmtransport_info.RzBitBtn4Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
dbgrid1.Refresh;
end;

end.