wj_luru.~pas

完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.

unit WJ_LuRu;

interface

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

type
  TfrmWJ_LuRu = class(TForm)
    ControlBar1: TControlBar;
    ImageList1: TImageList;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Query1: TQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    SpeedButton1: TSpeedButton;
    Label16: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBEdit12: TDBEdit;
    DBComboBox4: TDBComboBox;
    Panel1: TPanel;
    SpeedButton5: TSpeedButton;
    Bevel1: TBevel;
    SpeedButton4: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBNavigator1: TDBNavigator;
    SpeedButton3: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure DBComboBox2DropDown(Sender: TObject);
    procedure DBComboBox3DropDown(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ADOTable1BeforePost(DataSet: TDataSet);
    procedure ADOTable1AfterInsert(DataSet: TDataSet);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4DropDown(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ADOTable1BeforeInsert(DataSet: TDataSet);
    procedure ADOTable1AfterPost(DataSet: TDataSet);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    Function GetData(const Mark : string) : boolean;
  public
    { Public declarations }
  end;
  procedure ShowWBBJForm (const HtID : string) ;

var
  frmWJ_LuRu: TfrmWJ_LuRu;

implementation
   uses Pub_ChooseDate,pdm,WJ_FuJian,Pub_ChooseHT,WJ_HTDelete,SelectWTF;
{$R *.dfm}
procedure ShowWBBJForm (const HtID : string) ;
begin
  Application.CreateForm(TfrmWJ_LuRu,frmWJ_LuRu);
  with frmWJ_LuRu do
       begin
            Align := alNone;
            BorderStyle := bsSizeable;
            Position := poScreenCenter ;
            Show ;
            ADOTable1.Open;
            if SameText(HtID,'') then begin
               ADOTable1.Insert;
            end else
               ADOTable1.Locate('ID',HtID,[]);
            
            
       end;
end;

procedure TfrmWJ_LuRu.FormShow(Sender: TObject);
begin
  if not ADOTable1.Active then
     ADOTable1.Open;
end;

Function TfrmWJ_LuRu.GetData(const Mark : string) : boolean;
begin
  try
  with ADOQuery1 do
       begin
            Close;
            Sql.Clear;
            if SameText(Mark,'Shi') then begin// 查询省
               SQL.Add(' select distinct QDSQ from TAIZ where QDSQ is not null  ');
            end else if SameText(Mark,'Sheng') then begin
               SQL.Add(' select distinct QDS from TAIZ where QDS is not null');
            end else
               SQL.Add(' select distinct SORT from TAIZ where SORT is not null');
            Prepared;
            Open;

            if RecordCount>0 then begin
               result := true;
            end else
               result := false;
       end;
  except
    result := false;
  end;
end;

procedure TfrmWJ_LuRu.DBComboBox2DropDown(Sender: TObject);
   procedure AddDataInToDBComBobox2;
     begin
       with ADOQuery1 do
            begin
                 First;
                 while not eof do
                       begin
                            DBComBobox2.Items.Add(ADOQuery1.FieldByName('QDS').AsString);
                            Next;
                       end;
            end;
     end;
begin
  if DBComBobox2.Items.Count=0 then
     begin
       if GetData('Sheng') then
          AddDataInToDBComBobox2;
     end;
end;

procedure TfrmWJ_LuRu.DBComboBox3DropDown(Sender: TObject);
   procedure AddDataInToDBComBobox3;
     begin
       with ADOQuery1 do
            begin
                 First;
                 while not eof do
                       begin
                            DBComBobox3.Items.Add(ADOQuery1.FieldByName('QDSQ').AsString);
                            Next;
                       end;
            end;
     end;
begin
  if DBComBobox3.Items.Count=0 then
     begin
       if GetData('Shi') then
          AddDataInToDBComBobox3;
     end;
end;

procedure TfrmWJ_LuRu.SpeedButton1Click(Sender: TObject);
var tDate : string;
begin
  if ChooseDate(tDate) then
     begin
          ADOTable1.Edit;
          ADOTable1.FieldByName('QDRQ').AsString:=tDate;
          ADOTable1.FieldByName('QDYF').AsString:=FormatDateTime('mm',StrToDate(tDate));
          ADOTable1.FieldByName('QDNF').AsString:=FormatDateTime('yyyy',StrToDate(tDate));
     end;

end;

procedure TfrmWJ_LuRu.ADOTable1BeforePost(DataSet: TDataSet);
begin
  if SameText(ADOTable1.FieldByName('ID').AsString,'') then
     begin
       application.MessageBox('请填写“合同编号”！','提示',MB_OK+MB_ICONEXCLAMATION);
       abort;
       
    end;
  if SameText(ADOTable1.FieldByName('NAME').AsString,'') then
     begin
      application.MessageBox('请填写“项目名称”！','提示',MB_OK+MB_ICONEXCLAMATION);
      abort;
      
     end;
end;

procedure TfrmWJ_LuRu.ADOTable1AfterInsert(DataSet: TDataSet);
begin
  DBEdit1.ReadOnly := false;
  DBEdit1.SetFocus;
  ADOTable1.FieldByName('SFWG').AsString := '否' ;
  ADOTable1.FieldByName('SFYS').AsString := '否' ;
  ADOTable1.FieldByName('SFJS').AsString := '否' ;
end;

procedure TfrmWJ_LuRu.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBEdit2.SetFocus;
end;

procedure TfrmWJ_LuRu.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBEdit3.SetFocus;
end;

procedure TfrmWJ_LuRu.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBEdit4.SetFocus;
end;

procedure TfrmWJ_LuRu.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBEdit5.SetFocus;
end;

procedure TfrmWJ_LuRu.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBComBobox1.SetFocus;
end;

procedure TfrmWJ_LuRu.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBCombobox2.SetFocus;
end;

procedure TfrmWJ_LuRu.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     DBCombobox3.SetFocus;
end;

procedure TfrmWJ_LuRu.DBComboBox4DropDown(Sender: TObject);
   procedure AddDataInToDBComBobox4;
     begin
       with ADOQuery1 do
            begin
                 First;
                 while not eof do
                       begin
                            DBComBobox4.Items.Add(ADOQuery1.FieldByName('SORT').AsString);
                            Next;
                       end;
            end;
     end;
begin
  if DBComBobox4.Items.Count=0 then
     begin
       if GetData('Sort') then
          AddDataInToDBComBobox4;
     end;
end;

procedure TfrmWJ_LuRu.SpeedButton2Click(Sender: TObject);
begin
  if SameText(DBEdit1.Text,'') then Exit;
  GetHtFuJian(ADOTable1.FieldByName('ID').AsString,ADOTable1.FieldByName('Name').AsString);
end;

procedure TfrmWJ_LuRu.SpeedButton5Click(Sender: TObject);
var HtID,HtName : string;
begin
  if ADOTable1.State in [dsInsert] then exit;
  if GetHtID(HtID,HtName) then  begin
     ADOTable1.Locate('ID',HtID,[]);
  end ;

end;

procedure TfrmWJ_LuRu.SpeedButton4Click(Sender: TObject);
begin
  application.MessageBox('老白还没做...！','提示',MB_OK+MB_ICONINFORMATION);
end;

procedure TfrmWJ_LuRu.ADOTable1BeforeInsert(DataSet: TDataSet);
begin
  ADOTable1.Last;
end;

procedure TfrmWJ_LuRu.ADOTable1AfterPost(DataSet: TDataSet);
begin
  DBEdit1.ReadOnly := true;
end;

procedure TfrmWJ_LuRu.SpeedButton3Click(Sender: TObject);
var WTF : string;
begin
  if GetYFDW(WTF) then
     begin
          ADOTable1.Edit;
          ADOTable1.FieldByName('WTF').AsString := WTF;
     end;
end;

end.