untsystemset.pas

适合行业为眼镜业

unit UntSystemset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fm_Base, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls,
  DB, Menus, ImgList, DBClient;

type
  TfmSystemset = class(TfmBase)
    Panel1: TPanel;
    Panel2: TPanel;
    btnAdd: TBitBtn;
    btnEdit: TBitBtn;
    btnDelete: TBitBtn;
    GroupBox1: TGroupBox;
    Pc1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    btnCancel: TBitBtn;
    RdG: TRadioGroup;
    GridBase: TStringGrid;
    GridB: TStringGrid;
    RDg2: TRadioGroup;
    ImageList1: TImageList;
    cdsdata: TClientDataSet;
    TreeBase: TTreeView;
    RBAll: TRadioButton;
    RBclear: TRadioButton;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    N38: TMenuItem;
    mmi_SetTime: TMenuItem;
    mmi_PrinterSetup: TMenuItem;
    mmi_QuickCode: TMenuItem;
    N37: TMenuItem;
    mmi_kqday: TMenuItem;
    mmi_changePwd: TMenuItem;
    N36: TMenuItem;
    mmi_ChangeOperate: TMenuItem;
    N13: TMenuItem;
    mmi_close: TMenuItem;
    S2: TMenuItem;
    mmi_Agio: TMenuItem;
    mnt_Retail: TMenuItem;
    mmi_saleth: TMenuItem;
    mmi_something: TMenuItem;
    mmi_salejb: TMenuItem;
    mmi_Debt: TMenuItem;
    mmi_CheckDraft: TMenuItem;
    mmi_Todaymoney: TMenuItem;
    mmi_RetailPrint: TMenuItem;
    N14: TMenuItem;
    mmi_QueryDebit: TMenuItem;
    mmi_doback_Qry: TMenuItem;
    mmi_back_Qry: TMenuItem;
    N51: TMenuItem;
    D1: TMenuItem;
    mmi_yoptome: TMenuItem;
    mmi_Order: TMenuItem;
    mmi_sale: TMenuItem;
    mmi_BackGround: TMenuItem;
    mmi_outground: TMenuItem;
    mmi_Gain: TMenuItem;
    mmi_EndCheck: TMenuItem;
    mmi_ordergood: TMenuItem;
    mmi_AwardGuest: TMenuItem;
    N18: TMenuItem;
    mmi_OptometryQuery: TMenuItem;
    mmi_OrderQuery: TMenuItem;
    mmi_Yushou_qry: TMenuItem;
    mmi_debit_Qry: TMenuItem;
    mmi_backgroud_qry: TMenuItem;
    mmi_outmake_qry: TMenuItem;
    mmi_notgain_qry: TMenuItem;
    mmi_gain_qry: TMenuItem;
    N23: TMenuItem;
    mmi_award_qry: TMenuItem;
    O1: TMenuItem;
    mmi_overflow: TMenuItem;
    mmi_scrap: TMenuItem;
    N47: TMenuItem;
    mmi_pan: TMenuItem;
    mmi_stopPan: TMenuItem;
    mmi_Pan_qry: TMenuItem;
    mmi_stopPan_Qry: TMenuItem;
    N25: TMenuItem;
    N31: TMenuItem;
    mmi_WarnLimit: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N42: TMenuItem;
    mmi_stockgoods: TMenuItem;
    mmi_Agood_stockQry: TMenuItem;
    mmiQueryScrap: TMenuItem;
    mmiQryOverflow: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    P1: TMenuItem;
    mmi_shopquehuo: TMenuItem;
    mmi_AskGoodPlan: TMenuItem;
    mmi_PosSendBill: TMenuItem;
    mmi_postQuest: TMenuItem;
    mmi_ReceiveGood: TMenuItem;
    N52: TMenuItem;
    mmi_Qrygetgood: TMenuItem;
    mmi_zfgetgoods_qry: TMenuItem;
    mmi_psgetgoods_qry: TMenuItem;
    mmi_psbackgood_qry: TMenuItem;
    N4: TMenuItem;
    mmi_MoneyBill: TMenuItem;
    mmi_NormalBill: TMenuItem;
    mmi_OtherBill: TMenuItem;
    mmi_DTFS: TMenuItem;
    MMI_DTTX: TMenuItem;
    N50: TMenuItem;
    mmi_cwQry1: TMenuItem;
    mmi_cwQry2: TMenuItem;
    mmi_cwQry3: TMenuItem;
    mmi_cwQry4: TMenuItem;
    mmi_cwQry5: TMenuItem;
    N9: TMenuItem;
    mmi_SingleGuest: TMenuItem;
    mmi_jifen: TMenuItem;
    mmi_water: TMenuItem;
    nni_Guestviisit: TMenuItem;
    mmi_guestAdvice: TMenuItem;
    N20: TMenuItem;
    mmi_Optometry: TMenuItem;
    mmi_GuestAllInfo: TMenuItem;
    mmi_SingleGuestQuery: TMenuItem;
    N12: TMenuItem;
    mmi_ShopBbs: TMenuItem;
    mmi_kaoqing: TMenuItem;
    mmi_yuangong: TMenuItem;
    mmi_ShopLocalInfo: TMenuItem;
    N58: TMenuItem;
    N33: TMenuItem;
    N49: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N11: TMenuItem;
    mmi_stockChange: TMenuItem;
    N41: TMenuItem;
    mmi_SaleSort: TMenuItem;
    mmi_GoodSellSort: TMenuItem;
    mmi_saleTypesort: TMenuItem;
    mmi_SglGoodSort: TMenuItem;
    mmi_CustomerGraph: TMenuItem;
    N39: TMenuItem;
    mmi_PayTotal: TMenuItem;
    N2: TMenuItem;
    mmi_Caculator: TMenuItem;
    mmi_YCanlendar: TMenuItem;
    mmi_AlarmClock: TMenuItem;
    N10: TMenuItem;
    N1: TMenuItem;
    mmi_ShowTip: TMenuItem;
    mmi_About: TMenuItem;
    N3: TMenuItem;
    N19: TMenuItem;
    N26: TMenuItem;
    N34: TMenuItem;
    N40: TMenuItem;
    N44: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N30: TMenuItem;
    N32: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure btnCancelClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure GridbaseDblClick(Sender: TObject);
    procedure GridbaseSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure RdGClick(Sender: TObject);
    procedure GridBaseDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure RDg2Click(Sender: TObject);
    procedure GridBDblClick(Sender: TObject);
    procedure Pc1Change(Sender: TObject);
    procedure TreeBaseClick(Sender: TObject);
    procedure RBAllClick(Sender: TObject);
    procedure RBclearClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
  private
    { Private declarations }
    pcol,prow,Mcount:integer;
    qx:array [0..250] of integer;
    qz:string;
    procedure SetGridMenu(menuname:tmainmenu;index:integer);
    procedure SetMenuName(memuname:tmainmenu);
    procedure setqx;
    procedure getqx(Bindex:integer;Eindex:integer;grid:tstringgrid);
    procedure Getfields(grid:tstringgrid;index:integer);
    function ReadTree(Bm:string='';Tnode:TTreeNode=nil):integer;//(1：无数据，2：有数据，3：异常);
    function ReadDone(no:string):boolean;
    procedure WaleAll(index:integer;Flag:boolean;grid:tstringgrid);
  public
    { Public declarations }
  end;

var
  fmSystemset: TfmSystemset;

implementation

uses UntGuestset, untdatadm, func, Main;

{$R *.dfm}
////////////////////////////
procedure TfmSystemset.WaleAll(index:integer;Flag:boolean;grid:tstringgrid);
var
  i,j,p:integer;
  str:string;
begin
  case index of
    0: j:=0;
    1: j:=frm_main.ListView1.Items.Count;
    2: j:=frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
    3: j:=frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
    4: j:=frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
    5: j:=frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
    6: j:=frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count+frm_main.ListView6.Items.Count;
    7..17:
      begin
       j:= frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count+frm_main.ListView6.Items.Count+frm_main.ListView7.Items.Count;
       if index-7>0 then
       begin
         for i:=1 to index-7 do
         begin
           j:=j+mainmenu1.Items.Items[i-1].Count;
         end;
       end;
      end;
  end;
  if flag then
  begin
    p:=1;
    str:='√';
  end else
  begin
    p:=0;
    str:='';
  end;
  for i:=1 to grid.RowCount-1 do
  begin
    if grid.Cells[1,i]<>'分隔符' then
    begin
      qx[i+j-1]:=p;
      grid.Cells[2,i]:=str;
    end else
    begin
      qx[i+j-1]:=0;
      grid.Cells[2,i]:='';
    end;
  end;
end;
function TfmSystemset.ReadDone(no:string):boolean;
var
  sql:widestring;
  datas:olevariant;
begin
  result:=false;
  sql:='select Done,p_no,employe_name,part,user_pwd,opertype from chang where p_no='+''''+trim(no)+'''';
  cdsdata.Close;
  cdsdata.Data:=null;
  datas:=null;
  try
    datas:=adisp.execSql(sql);
    if not varisnull(datas) then
    begin
      cdsdata.Data:=datas;
      cdsdata.Open;
      datas:=null;
      if not cdsdata.IsEmpty then
      begin
        qz:=trim(CDSdata.fieldbyname('Done').AsString);
        if qz<>'' then
        begin
          pc1.ActivePageIndex:=0;
          getqx(0,70,gridbase);
          getqx(71,129,gridb);
          getqx(1,gridbase.RowCount-1,gridbase);
        end;
        result:=true;
      end;
    end
  except
  end;
 // cdsdata.Close;
 // cdsdata.Data:=null;
end;
function TfmSystemset.ReadTree(Bm:string='';Tnode:TTreeNode=nil):integer;
var
  sql:widestring;
  node:ttreenode;
  datas:olevariant;
  f,i:integer;
begin
  f:=1;
  if trim(bm)='' then
  begin
    sql:='select part_name as name,part_no as no from part where isnull(one_partno,'+''''+'0'+''''+')='+''''+'0'+'''';
  end else
  begin
    sql:='select p_no as no,employe_name as name from chang where part='+''''+trim(bm)+'''';
  end;
  datas:=null;
  cdsdata.Close;
  cdsdata.Data:=null;
  try